t 



fill 




DES PROGRAMMES POUR VOTRE 



ORDINATEUR : APPLE ll et ll e . CASIO FX 702-P. 
COMMODORE 64 ET VIC 20. HEWLETT PACKARD HP 41 et 
HP 75. MULTITECH MP-FII. ORIC 1. SHARP PC 1211, PC 1251, 
PC 1500, MZ 80. SINCLAIR ZX 81 et SPECTRUM. TANDY TRS 
80. TEXAS TI-99/4A. THOMSON T07. 



DEUX SUPER CONCOURS : «, 

prix au meilleur programme CHAQUE MOIS. 1 VOYAGE en 
pour !e meilleur logiciel CHAQUE TRSMESTRE. 



000 francs de 
CALIFORNIE 



Numero 3 



Pour ceux qui nous ont fail 
contiance des le numero un. 
nous allons avoir lair de radoter. 
On le sail que la formule est ori- 
ginal et quHEBDOGICIEL nest 
pas fait comme lesaulres ! Pour- 
tant. pour les nouveaux venus. 
nous allons tout de meme en re- 
parler de cette fameuse formu- 
le Les anciens, reculez de trois 
pas et allez directement a la 
suite! 

Hebdomadaire d'abord, pour ne 
pas que vous attendiez un mois 
votre programme. Au moins un 
programme par ordinateur. cha- 
que semaine. 

Pas de cours techniques, pas de 
conseils pour acheter un ordina- 
teur, pas de cours de basic, vous 
trouverez d'excellents livres trai- 
tant de ces sujets 

Nousce qui nous interesse, c'est 
le SOFT : les logiciels, les pro- 
grammes, les nouveaux langa- 



Vous avez tous fait un program- 
me plus ou moins long qui puisse 
interesser les utilisafeursdu me- 
me ordinateur que !e voire, un 
programme de jeu. un program- 
me qui facilite la programmation 
ou meme une simple astuce qui 
augmenle les performances de 
votre machine. Ce programme, 
HEBOOGIClEL va le publier. 
vous allez devenir les jouniotis- 
tes de voire journal 
Notre objectif est de (aire ciicu- 
Jer les programmes francats et 
rfe.excusezdupeu, fairs circuter 
"La Pensee Informative Fran- 
ca ise" 

Nous serons seulement les 
moteurs de ce mouvement en 
organisant les deux concours 
permanentr, d'HEBDOGfCIEL et 
en remunerant 1 000 francs la 
page imprimee pour les pro- 
grammes, les astuces el le 
redaclionnel, envoyes par les 
lecteurs Les programmes recus 
seront testes par nos specialis- 
tes et si voire programme nest 
pas tout a fait au point, ils vous 
indiqueront comment le modi- 
fier pour qu'il pursse etre putjlie 



Menu 



Programme leurs ou program- 
meurs (Tun ou ('autre se dit ou se 
mes freres {ou rnes 
sceurs, car la mysoginie n'es! 
pas de miso) ; a vos clavi 
Comme d'habitude vo;i micro 
processeurs vont avoir fort a 
f p.i re • 

Un petit coup de pe'nturc avec 
Ik pineeau du T07 de Bernard 
PACOUaUX et nous voiia prels a 
attaquer une petite belOte avec 
Jean-Pierre LAi.EVEE ijt son 
COMMODORE 64. Un peu de 
musique sur HP 75 avec Bernard 
RAQOTetsui MPFIiavantdese 
faire une grande bouffe avec 
Marie-Claire PICKE et son Tl 99. 
Pour digerer. tin grand said en 
parachute avec le Tl d'Andre 
MATHELIN et une partie de fle- 
chelte avec M BERNEZ sur 
VIC 20. Encore des jeux : ELEC- 
TRONS de Nicolas STRONK sur 
FX 702-P. Mernoric de Laurent 
CHF.MLA sur ORIC, Tour de 
suite page m 



Edito 



Qa ne s'arrange pas, la grove rie 
la poste est repartie pour un tour 
alors que nos chers postiers ne 
nous ont encore pas livre le 
courrier en retard Mais cela n'a 
pas lair d'aff ecter vos envois qui 
continuent d'atfluer, Voila le 
classement des programmes re- 
cus a ce jour: 



HEWLETT PACKARD HP 75 2,48 % 



MULTITECH MPF II 
SANYO PHC 25 
DRAGON 32 
GOUP1L II 
NEW BRAIN 
VICTOR LAMBDA 



2.42% 
1.91 % 
1.91 % 
1.59% 
1.27% 
0.64 % 



TEXAS Tl 99/4A 
ORIC t 

SINCLAIR ZX 81 
TANDY TRS 80 
APPLE II 

COMMODORE VIC 20 
SHARP MZ 80 
SHARP PC 1500 
THOMSON T07 
HEWLETT PACKARD HP 
COMMODORE 64 
CASIO FX 702 P 
SHARP PC 1211 
SHARP PC 1251 
SINCLAIR SPECTRUM 



19,73% 
14.00% 
10.18% 
6.37% 
5.09% 
4.46% 
3,82% 
3,50% 
3.37% 
413.37% 
3.18% 
2.86% 
2.74% 
2.55% 
2,55% 



Surlout perseverez, defendez 
votre ordinateur et faitesle 
monter dans le Hit-parade Me- 
mo si nous no publions pas des 
programmes pour des ordina- 
teurs comme ceux du bas de la 
grille (SANYO, DRAGON, GOU- 
P1L II, etc.) vous pouvez nous en- 
voyer vos realisations, nous 
commencons a les publier des 
le mois prochain. apres le vote 
pour le premier concours. Mais 
pourcela, il taut quo nous ayons 
suffisament d envois a vos cla- 
viers! 

Gerard CECCALDI 





f MO Q "^ 

\^ I ^ U 28 octobre 83 J 
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COMPOSITION MUSICALE 



La HP 75 C permet grace a des instructions BEEP un 
certain nombre d'effets sonores que nous allons 
exploiter dans cette composition musicale. 

Ce programme s'articule sur trois possibilites : 
1 - REDEFINITION DU CLAVIER: les differentes tou- 
ches du clavier ont une grande souplesse de reaffec- 
tation, ce qui permet d'envisager une aide a la frappe 
des programmes musicaux. La fonction premiere des 
touches n*etant pas modifiee, on peut entrer I'en- 
semble des chiffres et des lettres minuscules sans dif- 
ficultes. Par contre, les fonctions secondaires et ter- 
tiaires, obtenues par SHIFT et CTL ont ete redefinies 
de la maniere suivante : 

- SHIFT M = BEEP pour les notes de musique 

- SHIFT S — WAIT pour les silences 

- SHIFT 1 - DO 

- SHIFT 2 - RE 
-SHIFT 3 = Ml 
-SHIFT 4 =FA 

- SHIFT 5 - SOL 

- SHIFT 6 - LA 

- SHIFT 7 - SI 

- SHIFT + - diese 
-SHIFT- - bemol 
-CTL 0.1..... 8 -octave 

- SHIFT R = ronde 

- SHIFT B = blanche 

- SHIFT N - noire 

- SHIR C = croche 

- SHIFT D = double croche 

- SHIFT T — triple croche 

- SHIFT Q = quadruple croche 

- SHIFT • = note pointee. 

L'utilisation des touches redefinies peut se faire, soit 
en mode direct, sans numero de ligne, soit en mode 
programme avec un numero de ligne. 




ex; SHIFT M 


BEEP 


musique 


- Duree 


SHIFT 6 


N6 


LA 


- Prolongation 


CTL 3 








SHIFT B 


,D2 


blanche 


COMMENTAIRES 


SHIFT* 


• 1.5 


pointee 





entendu. la saisie d'une partition se fera avec redefini- 
tion du clavier et vous pourrez utiliser toutes les facili- 
tes du systeme, par exemple AUTO 21 00,5 pour bene- 
ficier de la numerotation automatique. 

3. EXECUTION D'UNE MELODIE : c*est a ce niveau que 
Ton peut se rendre compte qu'un simple BEEP peut se 
reveler puissant si les parametres sont choisis et geres 
judicieusement. Le programme vous montre I'exemple 
de la Ballade pour Adeline de Richard Clayderman. 

MISE EN CEUVRE DU PROGRAMME: 

1 . Placer I'ordinateur en mode EDIT. 

2. Taper EDIT "MUSIC" "BASIC. 

3 ENTRER le programme soit au clavier, soit a partir 
d'un support magnetique. 

4 Taper RUN. 

Le programme, apres vous avoir donne un titre, vous 
demande d'entrer le temps entre 40 et 1 80 noires par 
minute. Toute tentative pour sortir des limites sera 
vouee a I'echec. Ensuite les trois grandes options vous 
seront proposees successivement. 

- Redefinition du clavier (O/N)? 

- Saisie d"une partition (O.N)? 

- Execution d'une melodie (O.N) ? 

Seule la saisie d'un partition peut vous poser quelques 
problemes. Veillez surtout a entrer toutes les informa- 
tions dans le bon ordre: 



- Numero de ligne BASIC entre 2100 et 6999 

- Note ou silence SHIFT M ou SHIFT S 

- Nom de la note SHIFT 1 a SHIFT 7 

- Octavo CTL a CTL 8 

- Alteration SHIFT + ou SHIFT - (i3cu!tatif) 
SHIFT R a SHIFT Q 



SHIFT. 



HP 75 



ceci produit immediatement le LA du diapason en 
blanche pointee. 

2. SAISIE D'UNE PARTITION ; La HP 75 C se positionne 
a la ligne 21 00 et attend que vous frappiez un nouveau 
programme. Lorsqu'un programme est deja en 
memoire. n'oubliez pas de commencer par un DELETE 
2100,6999 pour effacer I'ancien programme. Bien 



im re* ............... 

twt R£* • 

1882 m • HUSKWs • 

!S83 REH • 

I684 REH • Ser.G RSCOT • 

1895 PEK * • 

i m pen ««•».««••. 
1967 reh 

ibib utm a 

ten beloy 2 

1829 P(JI«TH 24 
1821 W*r,IH 24 

1838 r*=* » " 

1831 BISP ttt 

1832 BISP -COHPOSiriOH-- 

1833 BISP ' -j 

1834 DtSP ■HUSICRU'; 

1835 BISP TI, 
1848 UfllT c 

1858 OH ERROR C010 8888 
1188 PEN *************** 

1181 '?!■ initialisations 

1182 REH **************% 

1183 PEN 

1118 ST0HB8Y OFF 

1128 OPTION BASE 8 
1138 INTEGER J 
1148 STEM notes 

!141 SHOPT HK3) ' do 

1142 SHORT H2(3) ' re 

1143 SHOP! H3(3) ' §j 

1144 SHOPT M4'8) I fa 

1145 SHOPT M5<8> ' sol 

1146 SHOP! H6<8) ' I* 

1147 SHORT H7(8) ' si 
1158 REH tewo 



Variables utillsees : Ni k N7 pour les notes Do a Si 
D1 a UT pour les durees 
10 potif le lernps. 

Lignes importanles : 11 74 duree relative du temps 
1211 diapason a 440 Hertz. 

Fichier utilise : TITRE pour le nom de votre ceuvre. 

Bernard G. RAGOT. 



M51 ( 



■ ■'■ 



1168 REH dwee 

1161 SHOP! III I ro*de 

1162 SHORT B2 ' blanche 

1163 SHORT B3 ' noire 

1164 SHOPT 04 ' cr«.he 

1165 SHORT 05 ' double G 

1166 SHORT 16 ' trifle '. 

1167 SHOP! 117 ' luadru c 
1178 PER lemo 

1171 INPUT "Two (48 a 
188 H oar «w> ' ';TB 

1172 IF T8<48 1HEH 1178 

1173 IF T8>188 THEH 

1174 T8=l/T8»258 
1188 ASSIGN I i TO ' 



178 



TITR 



1288 REM ************ 

1281 RQ! affectations 

12P2 REH • 

1283 REM 

1218 P=2"(l/I2) 

1211 S=448/T45 

1228 REH notes 

1221 FOR J=8 TO 8 

1222 H1U>=5 

1223 S=S*P"2 



1224 H2(J)=S 




l«?8 RED notes 


2838 BISR Ht 


2888 BEEP H4(4). 


1225 S=S*P*2 




1421 »EF tFV rHWC3T).-H 


2188 BEEP H1(3).I3 


2885 BEET' H4(4>. 


1226 H3(J)=S 




l-j 


2185 BEEP K5f3).B5 


2819 Hill IS 


1227 S=S*f"l 




1422 JEF KEY CHR*(3«T.'N 


2118 BEEP Hi(4).B5 


2dl5 BTE" H4(4t, 


1228 N4(J)=S 




2'i 


2115 BEEP H2(4),s5 


2828 BEEP MM), 


1229 S*StP*2 




1423 BEF »TV CHR((35)--H 


2128 BEEP HK3I.B3 


2825 BEEP H4t4), 


1238 K5U>=S 




!■-■ 


2125 BEEP H5(3),B5 


2838 BEEP mn). 


1231 S=S*P*2 




1424 BEF m CHRt(36),-H 


2133 BEEP H1M1.B5 


2835 BEEP W(4), 


1232 H6'J)=S 




4". 


2135 PEEP H2(4>,B5 


2848 BEEP (Hit), 


1233 S=S*P*2 




1425 BEF t£t CWt(37).-H 


2148 BEEP KI(3)>I3 


2845 BEEP H5<4>, 


1234 H7(J>=S 




5". 


'■•■■: ■:.? Km.K 


2988 BEEP H5(4). 


1235 S=S*P'l 




1426 BEF KEY CHR*(J8).'H 


2158 STEP KI(4J # I5 


2985 BEEP H5<4), 


123b NEXT J 




6-J 


2155 BBEP H2(i)-B5 


2916 SEEP H2C4), 


1248 RE* dure? 




1427 BEF KEY CKR('3?>.-II 


7;68eEfP m(3),K 


2913 BEEP H5(4), 


1241 Bl=T8/2 




?'; 


2165 BEEP»(3).K 


2928 BEEP MW, 


1242 B2-I8/4 




1428 BET KEY CHR*(64>,-» 


2171 b^EP Kin*.B5 


5»8 BEEP «3(4). 


1243 B3=Tfl/S 




?■: 


2175 StXP X1U>,K 


3885 WIT B3 


1244 B4=T8'16 




1429 BEF rEY D»(B>,V 


2288 BEEP HK3J.B3 


3188 WIT B4 


1245 S5=T8/32 




P'i 


2?«5 fffEP H5(3).I5 


3185 BEEP H3(5>. 


1246 B6= T8/64 




1438 BEF rEY CHRK176).' 


2218 80F7 "3f4>,B5 


3118 BEEP \- ■■'*). 


1247 B7=T8/123 




{%)-. 


2215 SEEP H5'3).B5 


3115 BEEP H2(5>. 






1431 BEF KEY CHRt(177),' 


2226 SEEP HI<3>.»3 


3128 BEEP H3(4>. 


1381 REN branohenents 


(1)-; 


2225 BEEP H5(3).J5 


3125 BEEP HI (5), 


1382 REM ******** 




1432 BEF rEY CHRt'l78i.- 


2238 BEEP H3(41,S5 


3138 BEEP H3<4>, 


1383 REH 




(2)-, 


2235 BEEP H5<3>,!5 


3133 WIT B4 


1385 POPTf KEYS 




1433 BEF KEY CHRtU79)." 


2248 BEEP Hi(J>,B3 


3148 BEEP H7(4), 


1318 DISP -Red-F 


nition 


(3)'; 


2245 KEEP »5!3),B5 


3145 BEEP H7C3), 


do tlaviff"; 




1434 BEF KEY CMRK189).' 


2258 BEEP 83(4). J5 


3158 BEEP H6(4), 


131 1 INPUT - Co. 


) "iR* 


(4)'. 


2255 BEEP K5(3i.l5 


3155 BEEP H7(3), 


1328 IF Pit!, Ill 


•>- (MB 


1435 DfF KEY CHPK18D." 


2268 DEEP MTC3).13 


3168 BEEP H5(4), 


WtUll'n- THEH 


1318 


(5)*. 


2265 BEEP H5(3).15 


3165 BEEP H7C3). 


1321 IF Ml 1.11= 


n' THEH 


1436 BEF KEY CHRt(t82).' 


2278 BEEP H3(4),I5 


3288 BEEP H6(4), 


1338 




<&)•; 


2275 BEEP N5(3>,I5 


3285 BEEP K5(4), 


1322 COSifJ 1488 




1437 BEF KEY CHPKI83)." 


2388 BEEP H3I4).B3 


3218 BEEP H4C4), 


1338 BISP -Saiii 


d'une 


i?y, 


2385 BEEP H3<4).B2 


3215 8EEP H3(4), 


eartition *■ 




1439 BEF KEY CHRt(I84>,* 


2318 BEEP H3(4),B4*1.5 


3228 BEEP K3(3), 


IJ31 (HPWT " (o. 


) -;Ri 


(8)'. 


2315 BEEP K4(4),B5 


3225 BEEP H5(3>, 


1348 IF WI.11I 


o- BHB 


1448 REM duree 


2488 SEEP H4(4),B3 


3238 BEEP Ht<3). 


Rltl.Mfr.- THEH 


1338 


1441 BEF KEY CHRK82)."- 


2483 BEEP H4(4).13 


3235 BEEP H2(4), 


1341 IF Pill. 11- 


IP THEH 


Bl*. 


2418 WIT B5 


3248 BEEP H2(3), 


1338 




1442 DEE KEY CHRtCtt),", 


24t5 BEEP H4(4),B5 


3245 BEEP H5(3), 


1342 IMPtJT -H«» de la »a 


B2-. 


2428 BEEP M(4).B5 


3258 BEEP HIC3), 


riion 7 -iMt 




1443 KF KEY CHRK78).-. 


2425 BEEP H4(4),I5 


3255 BEEP HIM), 


1343 PPIHT 1 1,1 


1 Ht 


B3-, 


2438 BEEP H4(4t.l5 


3268 BEEP HI (3). 


1344 FHCH 2188 




1444 BEF KEY CMtKC7) r *< 


2435 BEEP H4<4>,!5 


3265 BEEP H3(3>. 


1345 STOP 




04-, 


2448 BEEP H4(4),15 


3278 BEEP M5f2), 


1358 (ISP "E/ec.« 


ion d'u 


1445 BEF KEY CHPf(68),-. 


2445 BEEP H5f4),B5 


3275 BEEP H5(3). 


r* Mlodlfl 




B5*. 


2588 BEEP H5(4),B3 


3288 BEEP M5(2). 


1351 IHPIIT ■ (o. 


) ".R» 


1446 BEF KEY CHRt(84),". 


2585 BEEP H5(4),B2 


3285 BEEP H2<3). 


1368 IF PHI. Ill 


o- RHD 


B6-, 


2518 BEEP H5(4),B4»1.5 


3298 BEEP H5(2), 


Rttl.Ill-n- IH€H 


1358 


1447 BEF KEY CHRKSl).'- 


2515 BEEP H6(4).B5 


3388 WIT B4 


1361 IF Pill, 11= 


n- THEH 


17* ; 


2688 BEEP H3(4),I2*I.5 


3385 BEEP H3<4). 


1388 




1448 BEF KEY CHRK62).'' 


2685 WIT D3 


1318 SEEP H3<3). 


1362 GOTO 2888 




1.5*1 

1458 RETURN 
1588 REM tiue 


2788 8EEP H3(4),B3 
2785 BEEP H3I41.D3 
2718 MIT B5 


3315 BEEP H2(4). 


1481 REJI redeHn 


tions 


3328 BEEP H3(3). 
3325 BEEP HIM), 


1482 ra •...•«••«»«» 


1518 BfiTO -hVlodicljrd' 


2715 BEEP N3M1.B5 


3338 BEEP M3(3)i 


1483 PER 






2728 BEEP HJ(4t.B5 


3335 WIT B4 


1418 REH beec 




2881 REM wrlilun 


2725 BEEP H3(4>,B5 


3348 BEEP H7(3>. 


I4U bef rrr oku??),- 




2738 BEEP H3<4).B5 


■3345 BEEP H7(7>- 


BEEP -. 




2883 REH 


2735 BEEP H3f4),B5 


3358 BEEP H6t3), 


1412 BEF (ET CHRK83).- 


2818 BISP "Je j«je • : 


2748 BEEP K3(4).B5 


3355 BEEP H7(2), 


WIT •. 




2828 REDB 1 1,1 | Ht 


2745 BEEP H4(4),B5 
2 


3368 8EEP H5(3>. 



33S5 BEEP 
3488 SEEP 
3485 SEEP 
3418 BEEP 
3415 BEEP 
3428 BEEP 
3425 BEEP 
3438 BEEP 
3435 BEEP 
3448 BEEP 
3445 BEEP 
3458 BEEP 
3588 BEEP 
3585 BEEP 
3518 BEEP 
3515 BEEP 
3528 BEEP 
3525 BEEP 
3538 BEEP 
3535 BEEP 
3548 BEEP 
3545 BEEP 
3558 8EEP 
3555 BEEP 
3568 BEEP 
35*5 BEEP 
3578 BEEP 
3575 BEEP 
dm BEEP 
3685 BEEP 
3618 BEEP 
3615 BEEP 
3628 BEEP 
3625 BEEP 
3638 BEEP 
3635 BEEP 
3648 BEEP 
3645 BEEP 
3658 BEEP 
3655 BEEP 
3668 SEEP 
3665 BEEP 
3678 BEEP 
3675 BEEP 
3788 BEEP 
3785 BEEP 
3718 BEEP 
3715 BEEP 
3728 BEEP 
3725 BEEP 
3738 BEEP 
3735 BE£P 
3748 BEEP 
3745 SEEP 
3758 BEEP 
3755 BEEP 
3768 BEEP 
3765 PEEP 
377? SEEP 
3775 FEE? 
Sim BEEP 
3385 SEEP 
3319 BEEP 
J8I5 BEEP 
3988 BEEP 
3985 SEEP 
3918 WIT 
3915 SEEP 
3928 BEEP 
3925 SEEP 
3938 BEEP 
3935 BEEP 
3948 SEEP 
3945 BEEP 
4888 BEEP 
4885 BEEP 
4818 SEEP 
4815 SEEP 
4188 BEEP 
4185 BEEP 
4118 BEEP 
4115 BEEP 
4128 BEEP 
4125 BEEP 
4138 BEEP 
4135 BEEP 
4148 BEEP 
4145 BEEP 
4158 BEEP 
4155 BEEP 
4288 BEEP 
4285 BEEP 
4218 WIT 
4215 BEEP 
4228 BEEP 
4225 SEEP 
4238 8EEP 
4235 BEEP 
4248 BEEP 
4245 BEEP 
4388 BEEP 
4385 BEEP 
4318 WIT 
4315 BEEP 
4328 BEEP 
4325 BEEP 
4338 BEEP 
4335 BEEP 
4348 BEFP 
4J45 SEEP 
4488 BEEP 
4485 SEEP 
4418 BEEP 
4415 BEEP 
4588 SEEP 
4585 SEEP 
4518 BEEP 
4513 SEEP 
4528 SEEP 
4525 6EFP 
4538 SEEP 
4688 WIT 
4685 SEEP 
4618 BEEP 



H7'2).B5 

H6(3).I3 

H5(3).H 

M4(3).B5 

H5(3).I5 

H5(3),B4 

KK3).B5 

K2(3).I5 

H5(2),t5 

HH3).B5 

H2(3).B5 

K4(3).J5 

K5'2),I6 

K2(3),K 

H4(3),B6 

K5(3).B6 

K5(2>.K 

K2(3).K 

H4(3).B6 

H5(3),B6 

H2(3),B6 

H4(3),B6 

K5(3).B6 

H2MJ.B6 

H2<3).B6 

H4(3).B6 

K5(3).B6 

H2M),B6 

H5(3),B6 

K2<4),B6 

H4MJ.B6 

H5M),B6 

H5(3).K 

K2(4).B& 

H4C4).B6 

H5(4),B6 

H2M).B6 

H4M),B6 

K3(4),B6 

H1(5),B6 

H2M),96 

H4M).B6 

H5M),B6 

HK51.B6 

H5M).>6 

K2<5).K 

H4t5),B6 

K5(5),B6 

H5M1.B6 

H2(5),K 

H4(5).B6 

H5t5),B6 

H5(4),B6 

H7M),mS 

K2C5).I6 

H5(5),B6 

H5M).B6 

H7M),B6 

K2(S>.B6 

H5(S>,I6 

H3(S).M 

H3(3),B2 

H3(5),B4'I.5 

H4(5),B5 

W(5),D3 

H4(5),B3 



B5 
K4(5).D5 

H4(5),B5 

K4(5),B5 

H4(5),B5 

H4(5),B5 

H4(5).B5 

K5f5),B5 

H5(5)J3 

K5C5J.B2 

H5(5),B4«1.5 

K6(5).B5 

H3'5).D3 

H5(5).B5 

H3(5)/P,B5 

H7(4)/P,B5 

H5M).B5 

H4(3),B5 

HI(3),B5 

H6(4),B5 

H2(4),B5 

N2M),B5 

H7M),B5 

H5<4),B4 

H3(5)-B3 

H3<5).B3 

B5 

H3<5).B5 

H3(5).B5 

H3(5).D5 

H3(5>,B5 

H3C5M5 

H3(S).B5 

H4(5).B5 

H4(5),B3 

H4(5).I3 

B5 

H4(5).B5 

H4(5>,D5 

H4(5),B5 

H4<5).B5 

H4(5).B5 

H4(5).B5 

H5(5).I5 

H3(5),B3 

H5(5).B2 

H5(5).M»1.5 

H6(5),B5 

H3(5),B3 

H2(4),B4 

H5(3),B4 

K3(4),B4 

H5(3),B4 

H3(4).B4 

H5(4).B4 

B4 



4615 SEEP 82(5), B5 
4621 8EEP HTM), 15 
4625 SEEP M](5),I5 
4638 BEEP K3M),I5 
4635 WIT B4 
4648 BEEP H7(4).I5 
4645 BEEP H7(3).»5 
4658 BEEP H6(4),I5 
4655 BEEP H713),I5 
4668 BEEP M5(4),I5 
4665 BEEP H7(3),I5 
4788 BEEP H6MKB3 
4785 SEEP H5(4).M 
4718 BEEP H4(4).B5 
4715 SEEP H5(4).B5 
4728 SEEP H5M1.B6 
4725 BEEP H3ML16 
4738 8EEP H2M).B6 
4735 SEEP H1(4).B6 
4888 WIT 14 
4885 BEEP H3M),B5 
4818 BEEP H3(3),B5 
4815 BEEP H2(4),B5 
4828 BEEP H3(3),B5 
4825 BEEP Hl(4),05 
4838 BEEP H3(3)>15 
4835 WIT M 
4948 BEEP H7(3),I5 
4S45 BEEP H7(2),B5 
4B58 BEEP H6(3).B5 
4855 BEEP H7(2).B5 
4368 BEEP H5<3),15 
4865 BEEP H7(2),I5 
4988 BEEP H6<3>.D3 
4985 BEEP H5(3).M 
4918 BEEP H4i3).B5 
4915 BEEP K5I3KB5 
4928 BEEP H5(3).B4 
4925 BEEPHI(3).B5 
4938 SEEP H2(3).B5 
4935 BEEP H5(2)-B5 
4948 BEEP K1(3).B5 
4945 BEEP H2(3),B5 
4958 BEEP K4(3l.B5 
3888 BEEP K5(2),B6 
5883 BEEP H2(3).B6 
5818 BEEP H4(3).B6 
5815 SEEP H5(3hB6 
5828 BEEP H5(2),B6 
5825 BEEP K2(3).B6 
S838 SEEP H4(3),B6 
5835 SEEP H5(3),B6 
5848 BEEP H2(3).B6 
5845 BEEP H4(3)-B6 
5858 BEEP H5(3).B6 
5855 BEEP H2(4),B6 
5868 BEFP H2(3),B6 
5865 BEEP H4(3),B6 
5878 BEEP H5(3),B6 
5875 BEEP H2C41.B6 
5188 BEEP H5(3),B6 
5185 BEEP H2(4),B6 
5119 BEEP K4M),B6 
5115 BEEP H5(4),I6 
5128 BEFP H5(3),B6 
5125 SEEP H2(4),B6 
5138 BEEP H4(4).B6 
5135 SEEP H5M),B6 
5K8 PEEP H2M).B6 
5143 BEEP H4MJ.B6 
5158 BEEP H5(4),B6 
5155 BEEP H2(5).B6 
5168 BEEP N2M),B6 
5165 BEEP H4(4>,B6 
5179 BEEP H5(4),D6 
5175 BEEP H2(5),B6 
5288 BEEP H5<4),B6 
5285 BEEP H2(5),B6 
5218 REEP K4(5>.B6 
5215 BEEP K5(5>.B6 
5228 BEEP H5M),B6 
5225 BEEP H2(5),B6 
5238 BEEP H4(5),B6 
5235 BEEP H5(5),B6 
5248 BEEP H5(4),B6 
5245 BEEP H7(4),B6 
5258 BEEP H2(5>,B6 
5255 BEEP H5(5),B6 
5268 BEEP H5<4).D6 
5265 BEEPH7(4),B6 
5278 SEEP H2<5>,66 
5275 BEEP K5(5),B6 
5388 BEEP H3(5),B3 
5385 BEEP H3<5),B2 
5318 BEEP H3(5).B4»I.5 
5315 BEEP H4(5).B5 
5489 BEEP H4<5)J3 
5485 BEEP H415),B3 
5418 WIT B5 
5415 BEEP H4(5),B5 
5428 BEEP K4(51,B5 
5425 BEEP H4(5).B5 
5438 SEEP K4(5),B5 
5435 BEEP H4C5).B5 
5448 BEEP H4(5).»5 
5445 BEEP H5(5),I5 
5588 BEFP H5(5),B3 
5585 BEEP K5(5),B2 
5518 BEEP H5(5),B4t|.5 
5515 BEEP H6(5SJ5 
5688 BEEP H3(5),B3 
5685 WIT D5 
5618 BEEP H7M).B5 
5615 BEEP H3(5)/P,B5 
5628 BEFP H5(5>,B5 
5625 H01T P5 
5638 SEEP H6M),B5 
5635 SEEP HI (5). 15 
5648 BEEP H4C51.B5 
5645 WIT B5 
5658 BEEP H5(4).B5 
5655 BEEP H7(4>.B5 
5668 BEEP H2(S),B5 
5798 BEEP H3(5).13 



5715 KEP «(5), 13 
5718 WIT K 
5715 BEEP W(5>.I5 
5728 BEEP It3f5).l5 
5725 BEEP «(5).I5 
5731 BEEP «(5).I5 
5735 BEEP *3(5).B 
57*8 IfJP «3(5>.15 
3743 BEEP IM(5>.15 
5888 BEEP JM'5>.13 
5885 BEP H(S),I3 
5811 WIT 15 
5815 BEEP H4(S),13 
5829 BEEP »4(5>.15 
3823 BEEPM(5>,I5 
3838 BEEP H4(5>,15 
5835 BEEP H4(5>.!5 
3848 BEEP 84(5), 15 
5845 BEEP H5{5).15 
5988 BEEP H5(5).I3 
5985 BEEP H5(5),12 
5918 BEEP H5(5)-f**1.5 
5915 BEEP H6(5>,15 
6888 BEEP H3(5).B3 
(885 WIT B3 

6118 BEEP H4(5),I5 
6815 BEEP H4C4>,!5 
6828 BEEP H6(4),I3 
6825 BEEP H1(S)-I5 
6838 BEEP H5(5),15 
6835 BEEP N5(4),15 
6848 BEEP K7I4),15 
6845 BEEP H5(5),15 
6188 BEEP H3(5).B3 
6183 BEEP H3(5),I3 

6119 WIT B5 

6115 BEEP H3(5hB5 
6128 BEEP K3(5).15 
6125 BEEP H3(5),B5 
6138 SEEP H3(5),B3 
6135 8EEP H3(S),(5 
6148 SEEP H3(5>.I5 
6145 BEEP H4(5).15 
6288 BEEP K4(5),B3 
6285 SEEP H4(5).I3 
6218 WIT B5 
6215 BEEP H4(5),B5 
6228 BEEP H4(S).13 
6225 BEEP H4(5),B5 
6238 BEEP H4(5),B5 
6235 BEEP H4(5),15 
6248 SEEP M4(5),I5 
6245 BEEP H5(5>,B5 
6388 BEEP H5(5).B3 
6385 BEEP H5(5),B2 
6318 BEEP H5(5).M*l.g 
6315 BEEP H6(6).15 
6488 BEEP H3(5),B3 
6485 WIT B3 
6419 WIT B4 
6415 BEEP H4(41,B4 
6428 SEEP H6M1.14 
6425 BEEP H!(5>,B4 
6138 BEEP H5(5),M 
6433 BEEP H5<4>.14 
6448 BEEP H7MLB4 
6445 BEEP H6(5).B4 
6588 BEEP H3(5).B2 
6585 WIT B4 
6518 BEEP N4M1.B4 
6515 BEEP H6MJ.B4 
6528 SEEP N1(5),B4 
6525 SEEP H5(5),B4 
6538 BEEP H5M),14 
6535 BEEP H7M),B4 
6548 BEEP H6(5),B4 
6688 BEEP K3(5),B1 
tm REH •...*.«.... 

7881 REM suite no fin 

7882 REH •»•»•...»*•• 

7883 REH 

7919 BISP ••» Helas c"e 
si deja teraine •** 
7828 WIT 3 

7838 BISP *Reii>ur au **n 
u *<eneral -i 
783! INPUT " (o.n) ',Rt 
7848 IF Rtll. lll-o- AM 
Mll.DI-iP THEH 7838 
7841 IF RtM,ll=-o- THEH 
1188 
7858 PURGE KEYS 
7868 kv-.II.h I I TO * 
7978 ENB 

8888 REH ******* 
6881 REH errturs 
8882 REH •»■•••• 
S883 REK 
8188 REFi cur ■■■ 
8118 IF ERR!.:7B58 THEH t 
869 
BI28 IF ERVH:62 THEH 131 



178 

8229 IF ERL*t3U THEN I 

318 

8221 IF fRRL^I32« 1HEH I 

318 

8238 IF ERR1=133I THEH I 

338 

8231 IF FRRLM348 THEN I 

338 

8248 IF IW K'il 1HEH I 

338 

8241 IF ERRL-1369 'HEN I 

338 

8258 IF ERRW83I Tltl-H J 

138 

8251 If ERRL=7»48 THEN 1 

838 

8388 REH titre 

8318 IF ERSU2879 THEH H 

t="'* R GOTO 2838 

8488 REH autres 

8418 BISP 

8428 BISP -Erreur*, 

B438 BISP ERRH. 

8448 BISP -a la liWl 

8458 BISP (RRl _ 



FACTORISATION 



Configuration : HP 41 C + 2 modules 64 registres ou 
HP 41 CV Ce programme d'analyse numerique permet 
la decomposition en facteurs premiers d'un entier 
naturel inferieur a dix milliards. 

La vitesse d'execution a ete obtenue en : 

1 - limitant tes adressages, GTO, Xeq... 

2 - etiminant les multiples 2.3.5.7 de la liste des divi- 

seurs probables, 

3 - en mettant en memoire les representants des 

4S classes d'equivalence modulo 210 et en ajou- 
tant invariablement 210 pour obtenir de nou- 
veaux representants; on obtient alors les divi- 
seurs probables. 

4 ■ en utilisant un seul test tres court : DEE, pour 

48 diviseurs en serie. 

L'ecriture du programme demande 1 20 registres et son 
utilisation 50 registres supplementaires pour mettre 
en memoire les donnees. Aucune instruction syntheti- 
que n'est utilisee. 

Mise en ceuvre : 

• SIZE 051 

• ASN FAC X\ (ou XI est une touche quelconque) 

• Nombre < 10'° 




HP 41 











245 «K 7 


313 BOH 


38! BCl 83 


Attention, cela va tres vite! 






J46 »a ■■,: 


3)4 ----:- 


382 SD. 41 










247 JO. M 


v.- ■■■■ ■: 


383 "OH 






Joseph HECTUS. 


2*i HOT 


316 BO 87 


384 X=S7 










?49 '=■>" 


7 " ■■ 


3S5 XEO 18 










258 «E« !« 




386 PCI 38 










25' RC! 98 


319 X=8" 


387 SCI 42 


«•(.«. "f: _• 


62 STO 14 


123 -13 


184 *=8" 


75; set : r 


37« XEO 13 


38S BO! 


02 --OCIOBISOTIOH- 




124 STC 45 


!?5 XEO 1? 


253 -:: 


..... .. 


389 '<=?' 


83 B¥!EU 


64 Sit r 


125 -1! 


186 PCL 38 


254 x=8? 


322 'CL 7- 


398 XEO 18 


84 -IX 8 


65 -'V- 


126 STO 46 


187 PCL 82 


7:= \' ;■. 


323 »0! 


391 SCI 88 


i' r: >_■■. 


66 STO 16 


127 -1 


188 NOT 


■'. -.- ■; 


324 =:" 


392 PCL 43 


86 S0P T 


67 -137 


128 STO 47 


189 >:=«? 


;--- :•- . 


725 XEO 13 


393 BOB- 


'- m 


68 STO 17 


129 1 


198 XE? 13 


25! "■■ 


;-; :; ;:■ 


394 ~-'~ 


>■■ r- i 


69 -131 


138 STO 43 


)] w . 


25! X=83 


-.-■ :- :: 


395 XEO 18 


89 > 


78 STfi 18 


!3!*L8l 16 


192 RCi 87 


268 xrp ; 8 


32! -"■ 


396 PC 83 


18 NT 


71 -127 


132 2!8 


193 BOS 


;.• :■_ ;.;. 


--: .- - 


397 PC. 44 




72 STO 19 


!77 5T4 81 


94 ---■: 


- 


--■:-- 


388 KOI 


12 STD 58 


77 -!?: 


134 ST* 62 


195 XEO i? 


263 '■',' 


-- :■ >- 


793 X--8' 


13 so. 88 


74 STO 28 


135 S T * 8? 


196 RCI 88 


2(4 =;■- 


". r . : 




U I 


75 -113 


136 ST* 84 


197 sa --- 




-•- m 


481 :; >; : 


:' ■' 


76 STO 21 


137 ST* 85 


193 1011 


»« : '. Eli 


374 .-.:? 


48? SO. 45 


- ;t« - 


77 -189 


138 st* e« 


199 '-=•" 


7:- :■ 


... ,_;. . 


(83 BO! 


17 ■.?• 


78 STO 22 


179 ST* 87 


:y, --: - 




".• [• -,; 


484 K=T! 


18 i.-ir 


79 -187 


148 ST* 88 


»■ Rd >-, 


■'■:■ <--r 


... .. . 




19 XEO Is 


88 STO 23 


141 ST* 35 


282 PC 85 




339 «:: 


:... :- j 




81 -183 


147 ST* 13 


283 m 


-■-■ v :: 


i;: .,- 


|«7 Kl 4( 


21 3 


82 STO 24 


143 ST* 11 


m '<' 


--; :- |5 


34» *E* - ; 


I8f hoi 


-.-. .-- 


83 -181 


144 ST* 12 


:«5 xh i? 




34: ". 8! 


43' X=" 


-- ;■■ 


84 STO 25 


145 ST* 17 


236 Ba 88 


:, i X=81 


'-' '■' J3 




24 - : 


85 -97 


146 ST* 14 


287 PCI "•- 




7/" •■• 


■ 


- -■-. m 


86 STO 26 


147 ST* 15 




276 RCI 38 




412 PC'. 47 




87 -89 


148 ST* 16 


299 ■!->- 






' ' ■ 


v not 


88 STO 27 


149 514 17 




>78 Wl 




4)4 K=87 


a *-<r 


89 -83 


158 ST* 19 


-■■■ pr ;: 


273 =* 


347 :;_ 34 




29 XE8 18 


98 STO 28 


15! ST* !9 






348 TO! 




1 


91 -79 


152 ST* 28 


213 "OTj 




■;■- x='1 




V. 7 


92 STO 29 


157 ST. V. 


314 x=3" 


' 1 


:=•" r :? 




32 101 


93 -73 


154 ST* 22 




it 


351 :■ 


419 <--' 


$3 ■■ 


94 STO 38 


155 ST* 27 






35! J : L " ! 




3 E9 


95 -71 


156 ST* 24 


217 1 






42| r,7r ;: 




% STO 31 


!57 ST* 25 


218 "01 


:. (a :.:■ 






-. --■ ;■ 


97 -67 


158 ST* 26 




287 Ra 2? 


.,. .. .- 


' 




99 STO 32 


159 ST* 27 


228 xfO \i 


283 KOI 




424 V1EU 83 






168 ST* 28 




289 X=97 


757 'C. 37 


425 STB 




IMSTC J3 


161 '- i ■ 






. E: ^.. 


' • I 


48 V"i 83 


18! -59 










f>7 PCI 85 


«! -19! 


192 STO 34 




224 -t=r 


;?7 »c: 23 


' 




42 STO e< 


183 -53 




225 XEO 1? 


293 KOI 






43 -187 


184 STO 35 


|« ST* 33 




294 X=«1 






44 STO 85 


185 -47 






295 " r " 1! 




47! «!£« X 


1! 


186 STO 36 








764 x=e? 






187 .43 




229 x=8- 


-.• t; ( 


-.- :; ■ 




(7 


183 STO 37 


169 ST' V 


238 XEO 16 




i 




48 510 87 


189 -4! 


17J ST* 38 


231 SCI 88 




K7 ■- ^3 




«? -171 


118 STO 38 










47' CO i! 


58 STO 88 






233 HO! 






■ 


51 -16° 






234 X=8* 


- 


37« XEO IS 






117 -71 


174 STl '2 




tst «,ir 


37; Rft »f 




57 -167 


114 STO 48 


,75 jr, ,t 


236 BCL 83 


784 X=»-- 




' 


54 STO 18 


115 -29 


m ■■■ •■- 


277 :Cl 12 




773 BOi 


44! 1 




116 STO 41 


.-- ::. 4; 




386 m 8? 


374 «=«? 


442 i..- 


56 STO 1! 


117 -23 








375 »E0 |8 


447 ST- 56 


57 -157 


118 STO 42 




Hi '-.:. ' = 




376 PCL 83 


444 VI' > 58 


59 STO 12 


119 -19 


188 ST* 48 


!4| RCI >:■ 




377 SCL 48 


445 ST- 4? 


59 -151 


!28 STO 43 


131 SCI 88 


■f '■■.■■ 


313 XEO 13 


378 MI 


446 .an. 


68 STO 13 


121 -17 


182 PCL 8! 


-.- ,-,. 


311 ": 38 


379 '<-('■ 


■ 


61 -149 


122 STO 44 


137 mr 


7U >=." 




388 XEO 12 




FLECHEGO 



Faites rebondir vos flechettessur un trampolino et cre- 
vez le plus de ballon possible. En cherchant bien vous 
decouvrirez une carabine qui,d*indien,vous transfor- 
mers en cow-boy. 

M. BERNEZ 



. . ■ 



VIC 20 






-.1. 



... 

• 

... . : 
■ - :■■ I - - ■• • - . ■— r- 

.■ ■ ■ . ■ POIK1 

.... ■ 



16 PRIM 



. .- 

■ 
■ . 

: ■ - • ! 



: . 






■ ■ 

. . : 

■ 
- 




: 
. 
turn 

.'. 

11' 
■ 

. II ■ 
. . 



* 



rtrffi 






. ■ 
■ 






■ 
■ 
■ 



• ■ ■ 



. . 



tNDTCunu, L<g 



■ 

■ 
I31fl POsvEMU.e POfcEPO.S 
1920 PWEPO*S8.W 

• * 

I! .■' MEXT1 

I6» Pfl» t- >>* ^-^ **N - 

■ 
■ . 

16^0 FC*J-|lti4 

16?0 PRIMICHRI(13> 

1790 «XTJ 

1710 PSIHI'VOIRE 6C0KS ESt I* '.PI 

. .:,**»UJ>.Il9j(4J.-VCIU» VOX£2 JOsJtR « UHt «JT« PflRIIf^ (0/M>' 

1730 'i€ifli 

1^40 JTMl«.-0-UPM*-*N-Tf*M7W 

1750 GOT017j« 

: 




^33t7? 



APPLE II PARLE FRANCAIS 



Pour ceux que I'usage de la langue anglaise rebute, 

l"Apple peut desormais dialoguer avec vous en Fran- 

gais. 

Cela n'apporte aucune modification au basic qui fonc- 

tionne a la meme vitesse que I'Applesoft et avec les 

memes possibilities. 

La configuration necessaire demande un Apple II + 

avec carte langage (16 K supplementaires) ou un 

Apple ll'\ 

Methode u t ilisee : 

i'impossibiiite de modification de ['Applesoft reside 
dans le fait qu'il reside en ROM. Pour tourner cette dif- 
ficult on a charge la carte langage avec I'Applesoft 
d'origine, il est alors possible de le modifier a volonte. 

Contraintes a respecter po ur une personnalisation 

eventu elle: 

la table des mots-cle doit avoir une longueur maxi de 

399 caracteres et chaque mot doit se terminer par un 

caractere dont le bit de poids fort est egal a 1. 

Le programme CR EA.BASIC.FR.OBJ: 

il a permis d'e'creer la table des mots-cle et vous pou- 

vez I'utiliser pour modifier celle-ci. 

CREA . BASIC . FR . OBJ . 



Le programme commence reellement en 3000, On uti- 
lise HIMEM: pour proteger une zone memoire dans 
laquelle les nouveaux mots-cle seront inscrits tempo- 
rairement avant d'etre sauvegardes sur disquette. 
MAX=1 07 c'est le nombre de mots reserves de I'Apple- 
soft. CT est le compteur d'octets occupes, il ne doit 
pas depasser 399. MEM=37071=$90cf debut de la 
zone memoire. T$( ) tableau des mots-cle. 

Remarque : le fichier BASIC.FR.OBJ doit exister et ne 
contenir que des 'V avant la premiere utilisation. (Voir 
ligne 10000-10020). II faut done, la premiere fois, lan- 
cer le programme par "RUN 10000", puis "RUN". 
A partir de 3010 le programme charge le fichier, 
I'analyse et lit le tableau t${1). La ligne 3300 compte la 
longueur du fichier. A partir de 4000 on a la boucle por- 
tant sur les 107 mots. 

Le S/P 100 affiche le nombre de caracteres et le 
numero du mot en cours. Le S/P 200 sauvegarde le 
fichier. 

Le S/P 2000 affiche le mot-cle du fichier. On peut soit 
leconserversoitle changer. II y a alors verification puis 
le mot est ecrit en memoire. Enfin.le compteur CE est 
incremente et quand il atteint 20 le fichier est sauve- 
garde automatiquement. 

BASIC . LC . OBJ . 



QJJE^AIRE^OUR.DISPOSERPU BASIC FRANCAIS^? 

- Passer en mode moniteur (CALL-151) 

- Taper le programme en langage machine 

- Le sauver (ex.: BSAVE BASIC.OBJ, AS8O0. LS65) 

- Creer le fichier "BASIC.FR.OBJ" 

- Taper le programme "HELLO" suivant : 

5 HIMEM: 36864 
10D$ = CHR$C4) 
20 PRINT DS ; "BASIC.FR.OBJ" 
30 PRINT D$ ; "BRUN BASIC.OBJ" 

- Puis RUN HELLO 

J.-F. GROUSSIN 



*P 



Pl£* 



l REM 




2 REM 


BASIC FRANCAIS 


3 RE* 




4 REM 


J . F GROUSS 1 N 


3 REM 


24630 CHANCELADE 1983 


6 REM 




7 REM 1 


ill41lltlll(iliinili 


10 GOTC 


3000 


10O VTAB 3: MTAB :i PRINT "C 



'■;CI: 



VTAB 3: : 



30: PRINT "NO- ";I: RETURN 



200 PRINT D*"8SAVE8ASIC.FR.OBJ,A*90DO,L399" 
205 RETURN 

2000 VTAB 6: HTAB 1: PRINT "MOT ACTUEL: ■fT»(I>: PRINT i PRINT "POUR L 
CONSERVER TAPER 'ESC'-: PRINT - CHANGER *RT' ";: GE" 

•: PRINT AS 
2010 IF ASC !A») ■ 27 THEN RETURN 
2020 IF ASC (A*) < > 13 THEN 2OO0 
203O PRINT : INPUT "VOTRE MOT: ■■;**: IF LEN (X*> < I OR LEN (X*> > < 

PRINT "1 GOTO 2000 
204O PRINT : PRINT "ETES-VOUS SUR"? 0/N ";: BET A»: PRINT A»: IF M • ' 

THEN 2000 
2030 IF A* < > "O- THEN 2040 
2O60 T»(I) = Xf 

2100 LG - I: FDR J ■ 1 TO MAX 

2110 IF LEN <T»(J)) - THEN J - MAX: SOTO 2140 
2113 IF LEN (T*(J)I - 1 THEN K ■ 1: GOTO 2130 
2120 F3R K » 1 TO LEN (T»tJ)( - !: POKE MEM * LG, ASC t MID* <T*(J1,I 



>;LG = 



L6 ' 



FEXT i 



2130 POKE MEM - LG, 12S 

2135 LG - LG * 1 

2140 NEXT J 

2300 CT ■ LG - I i IF CT ; 



ASC ( MID* (T* 



399 THEN HOME ■ 



"TP.DP DE CARACTERES": 



3000 HIMEM: 368£4:HAX • I07:CT = 0:D« - CHR* 

3010 I 
3020 

3030 I - 1 

3100 IF FEE*. 1MEM -11-1 THEN 35O0 
3110 FOR J - 1 TO 399:Y » PEEK (MEM * J)l IF Y ■ 
II K 129 THEN PRINT •'EP.REUR POUR J- "J: STOP 
3120 IF Y • 1 THEN J - 399: GOTO 3200 
3130 T»U> ■= T*<I> * CHR* (Y - 128 » (V > 128>> 
3140 IF Y ) 127 THEN I - I * I 
3200 NEXT 

3300 FOR I ' 1 TO MAX:CT - CT * LEN (T*(I)1: NEXT 
3300 HOME : PRINT "POUR COHHENCEP TAPER RETURN" 
3310 GET A*.- PRINT A* 
400O FOR I - 1 TO MAX 
4010 HOME ; GOSUB 10O 
4020 G05UB 2000 
405O CE - CE * I 
4060 IF CE > 20 THEN t 



DIM T»(MA 



1 AND PEEK <MEM ■ 



4100 NEJT 



BOSUB 200 



4110 GOSUB 100: HOME : PRINT "TERMINE": GOSUB 200: END 

10000 REM CREATION DE BASIC. FR. OBJ AVEC DEB *01 PARTOUT 

10010 MEM » 37071: FOR I - 1 TO 399: POKE MEM * 1,1: NEXT 

10020 PRINT CHR* (4> "BSAVEBASIC. FR.OBJ, A»90D0,L399" 









0090 




.OR »S00 










0100 




.TF BASIC. LC. OBJ 


0007- 






0900 


SOURC 


.ED *07 




0012- 






0910 


DEST 


.EO 18 




OBOO- 


2C 


B9 CO 


1010 




BIT *C0B9 


(SELECT 10NNE 


oao3- 


2C 


89 CO 


1020 




BIT *C089 


ILA RAM 


0806- 


A9 


DO 


1030 




LDA ntDO 


t SOURC- »D00O 


oaoa- 


83 


oe 


1040 




STA SOURC* 






A9 


00 


1050 




LDA a*0O 




OBOC- 


B5 


07 


1060 




STA SOURC 




OBOE- 


AO 


00 


1070 




LDV »*00 




0810- 


Bl 




ioeo 


SUIT 


LDA (SOURC 


,V iTRANSFERT 


0812- 


91 


07 


1090 




STA 'SOURC 


,Y t APPLESOFT 


0814- 


ce 




1 100 




I NY 


I RDM -- ■ RAM 


0815- 


DO 


F9 


1110 




&NE SUIT 




0917- 


E6 


OB 


1120 




INC SOURC* 




0819- 


DO 


F5 


1 130 




BNE SUIT 




OBlB- 




00 


! 200 




LDA «»D0 




OB ID- 


85 




I 2 in 




STA DEST 


I SOURC- *90Di 


OB 1F- 


85 


07 


1 220 




STA SOURC 






83 


13 


1230 




5TA DE5T*1 


IDEST- SDODO 


0823- 


A9 


90 


12«0 




LDA 11*90 




0823- 


B3 


OS 


1 ZSO 




STA SOURC- 




0827- 


A2 




12S5 




LD* 1*02 


ITRANSFERT 


0B29- 


AO 


00 


1260 




LDY 4*00 


•HOTS-CLE 


0B2B- 


Bl 




1 270 


SUIT2 


LDA 1 SOURC 


.Y i ET 


0B2D- 


91 


12 


1280 




5TA IDEST) 


Y i MESSAGES 


082F- 


CS 




1290 




1NY 


•D'EftftEUR 


0B3O- 


DO 


F9 


I30O 




&NE SUIT2 




0B32- 


E 6 


08 


1310 




INC SOURC* 




0834- 


Ed 


13 


1320 




INC DEST*] 




0836- 


LC 




1323 




DEI 




0837- 


DO 


F2 


1326 




BNE SUIT2 




0S39- 


Bl 


07 


: S30 


SUIT3 


LDA (SOURC 




083B- 


91 


12 


: MO 




STA (DEST) 




0830- 


C8 




1350 








0B3E- 


CO 


95 


1360 




CPY H»95 




0840- 


90 


F7 


1370 




E-CC SUIT3 




0842- 


A9 


63 


13B0 




LDA ««65 


*SOURC= «936S 


0B44- 


85 


07 


1390 




STA SOURC 




0BA6- 


A9 


93 


1400 




LDA M»93 




084B- 


B5 


oe 


1410 




STA SOURC* 




0B4A- 


AO 




[42ii 




LDY ««00 




0B4C- 


A9 


DF 


14 30 




LDA »*DF 




0B4E- 


• <:. 


12 


1440 




STA DEBT 


•DEST- »DCDF 


0850- 


A9 


DC 


1450 




LDA *»DC 




08S2- 


as 




1460 




STA DEST*1 




0B34- 


Bl 


07 


1470 


SUIT4 


LDA (SOURC 






91 


12 


1480 




STA (DEST) 




0B5B- 


ca 




1490 




INY 




0B39- 


CO 


IA 


1500 




CPY »*1A 




085B- 


90 


F7 


1510 




BCC SUIT4 




0B5D- 


2C 


8B CO 


1320 




BIT »COBB 




OBiO- 


X 


BB CO 


1530 




BIT *C08B 




0863- 


4C 


00 EO 


1540 




J MP *E00O 


ISAUT AU BASIC 





Table de conversion APPLESOFT - BASIC FRANCAIS 



END 


FIN 


INPUT 


ENTRE 


GR 


GR 


CALL 


LMS/P 


HGR2 


HGR2 


DRAW 


TRACE 


ROT= 


ROT= 


NOTRACE 


N-PISTE 


COLOR- 


COUL- 


LOMEM: 


MMB- 


STORE 


STR 


RUN 


FAIT 


GOSUB 


VA-S/P 


ON 


SELON 


DEF 


DEF 


LIST 


PROGR 


TAB( 


TAB( 


THEN 


ALORS 


+ 


+ 


A 


A 


■■ 


=» 


ABS 


ABS 


PDL 


MAN 


LOG 


LOG 


TAN 


TAN 


STRS 


CHS 


LEFTS 


SCHGS 



FOR 
DEL 
TEXT 
PLOT 
HGR 
XDRAW 
SCALE= 
NORMAL 
POP 
ONERR 
SPEED- 
F 

RETURN 
WAIT 
POKE 
CLEAR 
TO 
AT 

AND 

USR 
POS 
EXP 
ATN 
VAL 
RIGHTS 



REPETE 

OTE 

TEXTE 

CARRE 

HGR1 

ETEINT 

ECH- 

NORMAL 

POP 

SIERR 

VIT- 

Sl 

RETOUR 

ATT. 

MEME 

RAZ 

JUSQUE 

EN 

ET 

< 

USR 

POS 

EXP 

ATN 

VAL 

SCHDS 



NEXT 

DIM 

PR£ 

HLIN 

HCOLOR- 

HTAB 

SHLOAD 

INVERSE 

VTAB 

RESUME 

LET 

RESTORE 

REM 

LOAD 

PRINT 

GET 

FN 

NOT 

OR 

SGN 

FRE 

SQR 

COS 

PEEK 

ASC 

MIDS 



ENCORE 

RES 

PR£ 

LIGH 

CLH= 

COL 

SHD 

INVERSE 

LIGNE 

RETERR 

ASS 

DBINFO 

REM 

CHARGE 

ECRIT 

CAPTE 

FN 

NON 

OU 

SGN 

LIB 

RAC 

COS 

MEML 

ASC 

SCHS 



DATA 

READ 

IN£ 

VLIN 

HPLOT 

HOME 

TRACE 

FLASH 

HIMEM: 

RECALL 

GOTO 

& 

STOP 

SAVE 

CONT 

NEW 

SPC( 

STEP 

/ 

> 

INT 

SCRN( 

RND 

SIN 

LEN 

CHRS 



INFO 

LIT 

IN£ 

LIGV 

POINT 

NETT 

PISTE 

CLIGN 

MMH= 

RCL 

VA-EN 

& 

STOP 

SAUVE 

CONT 

NPG 

ESP( 

PAS 

I 

> 

ENT 

ECR( 

HAS 

SIN 

LONG 

CARS 



Le programme en basic ci-dessous, utilisanl Its fichien cn?i fc 
par J.-F. GROUSSIN. permel dutiliser "APPLE II PARLE 
FRANCAIS' 'sans extension memoirc.U Imptanie un sous- 
programme en langage machine (lignes (kiln) a t'adresse 
37632 ($9300). Attention, seal les mots-cle son! traduits 1 1 
non pas les messages d'erreur: a vous de jouer! 

la redaction 



,IS1 1: DU i . 



f.n HATA 
7 DATA 
Hn iiata 



I4, ! 



,147 



73, 



12 I DS- CHHSm 

69,114,133,167.169.147,133,168,1 193, 

25S.147 

■M. Mil. I u.,.:ii.i,.'.n , imi,;ii. IH*j, 17, 31 !, 

16,249 

8,169,103,141, tH, ! 46,169,0, 141, 154, 148, 



I 46, 169, ".. 1 1 1 . 160. 149,141,163,149, 
') . 1 4 I 

1, 161,149, 169,60, 141, 164, i 49, 169 1, 

6,149 

141,169, 149,169,29,141, I 13, 149,96, 

147 

240,il,?0l,21?.>40,27.72,l >". I ', I M 



161 



90 DATA 201,56,171. ,3,76, l'JO, 0,96, 224, 164, 206. 2 1.. 165,169, 

147,208,229,224,76 
100 DATA 70B, 225, 162, 130, I'.',.!! 1 ',. 'mi. .'I'' 
110 PRINT D9r a BL0AD BA8II .PR, OBJ, RS9100' 
120 FOH 1-0 TO 167: IHIAD X: 1'llKl: AllM.X; litlXT ! 
130 CADI. AD IBND 



MICRO-SYNTHETISEUR 



• Ce programme permet les fonctions suivantes (pro- 
poshes sous forme de menu) : creation de melodies, 
en utilisant le clavier, qui seront enregistr6es dans un 
tableau et execution apres composition; correction 
de melodies pr6alablement enregistrees ; sauveQarde 
sur cassette ainsi que rechargement de melodies sau- 
vegard^es ant6rieurement. 

• II utilise les possibilites graphiques et sonores du 
MPFII, ainsi que I'affichage alterne des pages primai- 
res et secondares. 

• Pour la g6ne"ration de sons, le chargement du pro- 
gramme machine est effectue en 5000-5030 (data en 
20000-20010) et I'utilisation de ce generateur en 
1760-1780 (POKE 768 pour la hauteur de la note, 
POKE 769 pour sa duree). 

• Pour le graphisme, utilisation notamment de ('ins- 
truction DRAW avec une table des formes (data en 
20020-20040) implantation en memoire en 5100- 
5150). 

• L'affichage altern6 des pages primaires et secondai- 
res est obtenu au moyen des instructions MA (affi- 
chage page 1) et MP (affichage page 2). En 4000, 
POKE 72. 1 60 permet de tracer dans la page 2 pendant 
l'affichage de la page 1 . En 4070, POKE 72, 32 restaure 
le trace dans la page 1. 

• Des modifications (ou ameliorations) peuvent §tre 
apportees a ce programme. II n'utilise qu'un seul 
octave, mais. sur les indications de "Compositeur", il 
est possible d'elargir jusqu'a 4 octaves (en divisant sui- 
vant le cas la hauteur de la note par 2, 4 ou 8). 



>UST 

19 911 Ftll ) 

29 DIF1 HOf :\ 
39 Bin tlfi, 

49 Dm n( m.2) 

183 HONE UTAI 19 HTAB 19 

119 eoisT- 'PATIENCE, PROGRAMME EH ...-; 

129 UTfrJ \2 --t.2 =3 

i?a point -d :"":-lis«.tioh- 

'.«■* EQSUI 3989 GOSUB 3133 GOSUB 5288 
IOSuB 1399 GOSUB 4999 




1& 



& 



680 PPIMT '-QiJEL rVM -" 

699 L - 2 

693- IF ■ i 6 THE* ■ • t - 5 

«9S [F | . l tn£H L • 3 

S97 IF I . 2 THEN I . 3 

698 IF B - 3 THEN L - 7 IF I ■ 4 

THEH t_ - 9 IF 8 • 3 THEN L ■ 11 

IF ! • S THEM L » 13 
799 C - 8 IF n-|.8) > 1?£ THEM C 

• 29 
718 UTAB L HTAB C 
728 iH'JEdSE PPIMT •>* 
738 POKE 768, n< 1.8) 
749 POKE 769.*' : 
738 CALL 779 
768 UTAB L HTAB C 
779 N0RNAL PAINT • * 
789 GOTO 319 * 
799 NORHAL TEXT GOTO 170 
1*93 PEN EXECUTION EE LA MELOBIE 
1389 l~ n 9.9 * 9 THEN 1889 

: z:t HCR -::_:= -. ~ 

'.328 H»L0T 68.43 TO 299.49 
1333 H=L0T 59 115 TO 288.116 
1349 X * 49 FCP I = 9 TO 7 
1339 A * x * 28 

13£9 --.-.■ .,£ - 

. 1379 X - 73 COS ;= 1638 
1339 X » »■ 

; n ;osui IS39 

: -■ ■ ■;.: :■:•: 

i«i8 x ■ i7; ;:;.; ;-:t-i 

:-:io MTC i860 

1539 FOP I ■ 9 TO 9 

1648 --.:' * 1,4? TO - ' 

1659 •<£ - RETURN 



suite page 14 

1919 UTAB )« Ml 

3928 PR II 

3919 vtrj t 3 Hist 3 

3«4f •» tH r -«.fl 

383* WTAB 13 HTAB 3 
385B PRINT ■RRfVYtZ ■-...- .,1 - 
-:e»* 

397* ;gi at 

3973 M|Mt * ;r ..-., „, 

BE EST TE«"Ih££ ■ 
3BB9 STORE N 
3999 GOTO 179 

33ee ho"E 

3318 UT&B 18 HTAJ 3 

'*-'* ; ' : -'" - 

ZZ ls EM -;:-: fvn 

333* UTAI 13 -TAB 3 

3349 PRINT " FRAPPE2 SUR UNE I 

3369 «:■.: • -. BCUXtEM 

«EHT est TES-:-.r- 

3378 GET at 

33e8 RECALL N 

3598 SOTO 17« 

4«B« POKE 72.168 

4919 TEXT L . 6 C - IB 

4928 FOB I . « TO 3 

4e3B UTAB L una c 

48*b »oiht I.-.----:,- 

4939 L • L • 2 NEXT 



•K) 



I ' 



1664 



1 128 



IM 


■ - -* ■ ;-■ -i -.;- rHEN 1 
«a HOnE 


229 B - «. CAB) :=-,.; — r, ( 

HOME EUD 


219 
213 


ON A GOTO 589.1388 2380.3888 ' 
GOTO 179 


228 

z :■- 
249 

::■'■ 

- L 


= En SFFICHAGE =■;:-■( JftlSIE 
"- : L » 3-C - 1 HCOLOR - -; 

FOR : ■ -3 -■-, ■: ■--; i --i. E - 
F-flllMI :-- i I * «j.-->« HOI 

' 2 


268 


next . = 3 ; = :; 


. ■■! 

:3? 


■'J 8 I • « TO 11 --■ . HT(W 
PR1HT :-= I I * «s; ->-,HOi 



299 


MEXT L = 3 ■: - 




399 


tjTftB L -'-I ; 




i(8 


ppint j s;-.:e - 






ijT&B L HTAB : 




339 


ppint »»uwcHe- 




349 


UTAB L HTftB C 




339 


PRINT 'MOIRE - 




368 


WTAB L HTliB C 




i?Z 


PRIMT -;=. ;me - 






RETURN 




499 


=-:*■ :reatioh 




399 


G03UB 23 - 




■: ■: : 


I ' 9 




318 


L - 13 C ■ 12 




320 


IH ERSE TAB 






PPIMT '- 






GET Al IF A3, 




330 


: c we -i 

76 THEM 5"3 


-'■ EW A3C -i 


360 


i • i * i nee. a 




379 


- * ASC -i - 




S7S 


B - A 




\-:z 


• F( A - 


; 


33? 


■->. _ HTAB " 




330 


M< "-'--_. PRIMT 


tOTE ■ 




L ■ L ♦ 2 --:. 






INVERSE PSIN' 


"-o?;el type ■>• 










IF At * ' . 


&* • "2- OP At 



1678 -;s : , : to 5 

----'■:. TO 273 
1599 ■■■ = - : 
1780 ^:-_;= j 

1710 DRAM I _- [J ;=• 

1713 .*3 » 184 

1718 BOT« l 

1720 fg« i . : -; - .j..; 

1739 :f : 

Dpah ; .- 

1733 COT.: 1738 



i74e 

1743 1 



It rHEN 1738 

5 SPiH 2 hT , 



1768 POKE 768". ; ,3 

1778 POKE --:? •• i . . . 

1798 Ci_ -- 

1 730 NEXI 

1989 TEXT CQTO 178 

2389 (JOSUB 239 

MlB L - 13. c - 3 

2313 UTftB L HTAB C 

2328 HTAB L • 2 HTA1 - 

lilt ™ l J? ■'- -- «>-- - 

2348 UTfiB L MTOB 27 

2333 :•!-.- | 

23S9 ;- 

■-. 

p« WTAI L • * KTA| 9 

««9 PRINT jb 

2619 GET At 

2629 £ = ftir „, _ . , 

2628 M<O.0> . p (| , 

2648 GOTO J3ig 
1888 



I ■ 

«eS3 fETUPN 
43*8 '.TBI 24 ---: \ 
*'■'■' PRINT -t I 
EH BETURM i - 
4320 RETURK 
3088 B£n ;-_;;.;-.... 
" = 1 • 8 TO 28 

■ ■ 

383e - ; . 

3:9e J-- :hm 

!:;e FOR I - « i 

'-■■■■.■- 
■ ■ 
■ 
5139 HE! 
32C3 »£i :--- ;■: 
321* fop I • ? t 
-;:^ bca] f 

3238 BETUBH 

■ ■ 

3319 H0I<9> ■ -SO- 
3312 HOI 1 • . 

5314 •■■(: . t£- 

331-; H0*> 3 ■' - - . 
5318 HOI. -« 

■ PA 
3321 H0*> -; ■ - 'FAB 
3323 MO 4 ?: . "SOL" 
3323 HOI. 5' • -$0L9- 

■ 'LA' 
3327 HOI- 18 ■ • •!.»•- 
5328 NOt. IJ > ■ -si- 
3330 BE- , 

3350 t;i g --ELODie- 

5360 TI t t ■ 

1 JB1£- 

SJ09 ri«3 ■ VHWEM .!•(£ MELODlf 
5390 t; i j . . H ... ; E |, ;..,, 
5400 ::i 3 - 
5418 RETURN 

20000 B-TA 173.49.1?; : 
3.240,9 



PEINTURE -\Ol 



Artiste peintre sur ordinateur, cela vous tente? oui... 
alors a vos pinceaux optiques et realisez en musique le 
tableau de votre choix. Une fois votre ceuvre achev^e, 
vous pouvez la ranger sur cassette et I'exposer quand 
vous le desirez. Pour restituer I'image 6cran enregis- 
tree, deux solutions: 

1 - le programme est en memoire: RUN 63200 

2 - il n'y est pas, entrez : 

10 POKE & HE7C3.1 : LOADM "F" 
20 POKE & HE7C3.0: LOADM "C" 

RUN 
Les commentaires contenus dans le programme per- 
mettent d'identifier chacune des fonctions. 
s :on|Olf:9,£4 Bernard PAQUAUX 

■ 

■-:■ rl«f-«ovi 

;tt \r\m\t ,.■ . :.•--. It'lHKE ': IF 

:t«-- -Hit 2i 

:: i- :i '0* ark :t •** RRO !*«-»■ 
&tt I* - IHEBl c: 
tt jrVll am : i 

■ . - . 
■'. :0N90LE6iCLSi SCREEN . . 
?;• :i-£jl:-is0i^2*i>6 
:>.;- FOR P»8 to 7 
118 BOW*CI,L1 - C1*45,L2 ---. 
Ill BC ::..:-.: -45,L2 ,-2 
:'.'. f-Eh - -. : -*'.,Li ■ 

::■■•'-, 
139 NEXT P 
146 PLAY"* I T905L24SIL36H1PL24P81M1PA2L3< 

It 2 r 22fATTRf :■..:■: . (-e.6!PP!NT 
" -tPLCY • 

131 LOCATE 8»22jCOLOP I, I (PRIMT' 
L«PP' 

132 LOCATE E3,2£IC0LOG 2,8<PRlBTr" 'IPLAV 



' ■ ' ■ B7.COC0N 

■ ■ l 
I78M G-|l0-HU-t 

:70ie console . .<■ 
IETURN 




,40881 

4M8E 

I 



:■■ 



: ■ . 



2:2 pl»? •04L«" 

213 fI800JGOSUB 40090 

213 IF ', ■■: them .-,r;-,uei000 

300 IF «<>! then 100 

488 B0X'2,2>-*319,149>,1 

-•-•■; LOCATE . ■ E ^I,24iCL:= 

S« GOTO 52900 

1069 ' 



••• DEF B0XF 



.:::\ 



yp 



»»p 



CF* 



30PP- 

133 LOCATE l?.22iC0LOP 7.3:P»1MT- "(PLAY 
■FRPP' 
154 LOCATE ;3,22!C0LOP 4,*:PP1NT- "IPLRV 

■:-<- 

133 LOCATE 3:.22iCGiOP 5, 51 PRINI 
'REPP- 
IS? LOCATE 33/22iC0L0R«.7fATTRBe/KPRINT 
•c, n -:PLA 
8 

178 '.0M';0LE8,:9 
I&0 y-308:GOSUB 45000 
190 0-8 

299 BOX<2/S)-| !I8# 1*3 
293 8OXF<0,132/-'320. lS7> f CC 
210 ON PEN Q05UB MP86. 12808, 13088. ;480e 
.13088,16808,17008 
£11 IF 0-8 THEN PL*-' -02COD0' J GOTO 218 



1082 

1983 

1085 

1810 INPUTPEH ;,^:lf L -145 THEN Pi.A-"02 

t-COO'iGOTO 1010 

1011 IF C9 0" l. 8 THEN PLA'C'02&0W>*: 
GOTO 1810 

1012 pse- ... .- :-i 

I8K IRPUTPER »«RlfIF RIJ143 THEN PLAY • 
'Jit-ObO'iCOTO 1016 

1817 IF tUt op it] a thcm f jl «,'-0200DO-i 
GOTO 1016 

'0351* 

i&20 bo/fc.l - c-.pi ,: M003 o-i 

teW BETURM 11099 RETURN 

£968 • 12980 ;--2 

2881 ................. 12803 0-1 

2892 '•••9SVP Nut.««99t 126^9 RETUPN 

2993 '•••• •!••• 13898 Z»-3 

2820 PLAVA2T204L1200' iBETURN 13883 0- I 

3888 PLAY-A3T204LI2PC- iRETURN 1309? RETURN 

4886 PlOY-A£T204LI2nI' SPETURN 14808 Z--4 

3080 PLAY-A2T404L18FA* (RETURN 14805 &■ 1 

6080 PLAY-H&T404L5SO- (RETURN H899 RETURN 

7898 PL«'-'A3T204H2')ftRETUP(( 1509B 2"-5 

98ee ' 13003 o-i 

10908 ................ 13099 RETURN 

11908 '• 's'P COUIEUPS • 16008 2»-6 

1100! ................ 16803 0-1 

11094 2 — 7 16899 RETURN 



■ ■ ■ 

«e«« ;i si primtii 

48010 TI*' :, Br< .-»»,. ,,--. 

BC«r d«c -I'.-e- » ,«c u 

tlNU« : FOP L-: TO LEN '( 

ftTTRSe, I (PRINT ■•:: i -t.. . 
FlEXl L 

48912 Y-aeoiGosoe 43009 

48013 PRInT:P6;n:: .. 

48914 FOR NP-i " 

40913 PHI(l>-"Ch»lsf»u a'»b'- . i 



• d« la 

48016 FOP L»l TOLEN(PH»'NP>UCOLOP np*i 

(PRINT n ;:■(.- phi ■ N p., l. i ■; : Pl-v -PP": NE:'TL 
(NEXT NP 

40818 V*2888(&03UB 48098 
40820 60 t8, 188)- J28, I73>,3 

40038 PSET'?P.'.7& ,7i PLA ■ 

G08U8 49888 

40033 pset 138, ;' ■ 

49040 B0XF<88,I38>-' 150. I! 
40050 GOSUB 40080 

10055 p;eT' 2ie»i£e>,ai 

;0B66 P3€T<258,l70J,2l =... 

10065 B0Xr<Bl8, 128 -(238,179 ,211 

iT6A104PPP3IKILhPPPP- 
19073 GOSUB 4300? 

40998 TOO h-1 to *■■ SCREEN 
•04S0-JLOCATE 8,3 
PPINf T T E N T I .". ■ 

*aeee(NExT hiprini 

48891 BPf ' S 1 o u 1 

n d 4 Z "(FOP ""1 TO LEN-8H ' 

■ . :■■.-. : I ;: 

J liPLAY-P-(N£XT :■-,... 

OPPPP' 

40093 8NI« "Poi : ' 

r>r\ OF'Hui :k lu*inott a -« u l'«:-»-. in 

BWfflMrtt«"IPRlNTIPPINT(FOR -l 

Nt i 

40894 0TTPB0, 01 . ( BNI.v, 

: .;:Play 'LieP'tNE ■ 
48896 GOSUB 43800 

40999 SCREEN ,7,CC(CL8lPI 
45088 ' 

TTENTE •••• 



In 



<t»* 





59000 " ••■■'■ 

50001 

35082 SCREEN .9. 

• . ; ■. 888,31 

08. 4000. 5080. *0P0.-i'B* 
■ ■: 

58806 LOCI ,4IPR1N1 

'C « i i e i i i ! o n i' 
5C0O7 L'. 

E. = . ... . 

.-.-.■. 
5086C' i 
3081& LOCATI 

PBJNT -Apeu^c fir u p,« ■,.,., „. 

•netr* i COLOR .': 

seei; ..iMi-rj-c ■-,:■■■-: v: ,u& 4S868 

^9028 IT «(*-■ THE* 

•=B0,0 
30099 COM ■ ■ 
69686 ' 

62801 ■••• II '•.••• 

62882 

S2893 CP»I 

62883 ON EPPOt GOTO 63890 
62806 LOCA1 

(8 l«ttp«i ■•> mum ■ 

«■«! ENTREE- 

1^2887 LOT..-' 
:>|p'..T N*:ii..-f 

■J2810 f-pini 'En^«9l(tt««l ' n 

62020 IF LEPTB(£B, : ■ *0 AMD LEFH 1,1 

■ then Cl SIENC 

62923 2t-INKEYi 

62938 LOCATE 0. r : I -»»-.«to 

■ ■ «r«! ? 

:0LOR4,3( PRINT "ENTREE': 

62833 IF CI.-* OP :(■ CHRBCI3 :mEN *2023 

62640 CLSi P0»E IHE7C3, I 

62843 SAVEN -r-.lH40B0.l.MrF<6.i>'eO8 

62850 POKE 4ME7C3.0 

62866 SAVEN -C-.lM4060.lH5r40.tHee6 

62108 ' 

62118 ENO 

63008 '••**•••••*•••(•••••• 

&3861 ''ttt TRAIT. ERR •»■• 

63082 ••••#••••••• 

63818 IF ERP-53 THENCLi! PLftY■0^^0I>0tl0D0■ 
(COLOR HPRINT-r-ftGNETOPMONC NON BBANtHC* 
(COLOR 7rRE9UN£ 62810 
63099 ENO 
6329B ' 

63293 

■■;:.' ■•••; H PROCR. BIN94* 

63211 '•"*■••• Mm 

• ?226 CLSi P0*E lME7C3,HLC(Apn "P* 

63239 POKE tHE7E3.9lL0ACin-C- 

63240 SCREEN . .CCiLOCATCt ,21 ,9> END 



45983 • 

OtATE 2.24IC0L0P 7,0ILOCA1 

Pt INT '-- r,our :*ntif%y»f 
.31PRINT * ENTPEE ■ 
43809 Jt-lN'f » 

(»•■ DO i HP»<13 


'F.TURN 
4^1000 ' 
4:801 '••»•••• 

4S992 '••••• 8oucl*( **•■>.. tt*> 
49883 '•••*•**• • 

48865 FOR Yl-1 TO : NE ■ 
48699 RETURN 




LARGAGE 



Vous etes le pilote d'un heJicoptere qui doit larguer des 
parachutistes sur une cible multicolore. Vous depla- 
ce2 voire enqin avec tes fleches du clavier et farguez 
vos parachutistes avec la touche "V. Un drapeau vous 
indique la direction du vent et Tordinateur affiche la 
force du vent en permanence. Attention de ne pas des- 
cendre trop pres du sol, il faut "un certain temps" au 
parachute pour s'ouvrir. 

Andre MATHELIN 



•mt mm? -iwi ciioiii u» kikopkm <nc iitvcovwtatsiif.E .».- . 

Vv >»|NI 'tOUCMEd) POv« lANGUCR' 

66Q MINI "UN BWEAU At) M. rtWS'.-IWIOJt LA OIXCllONi BU (fXl'.'U F0MC1 90 

WI lit XKKSIhil * 

i» >«!»! 'ATIEMTION IUI LAKA6ES' .-EFFECTUES «» t*l" 

600 Mint 1 ■ 'J". PNOMU LMKUEtrt'.'CPtMIIOnet'* 

110 1WT *UW[» SUR (ENTU)":A1 

IK m IIItUlHMIOU 

630 «•» 

to wj 

6H [111 una 

660 K«»--*WT OE FORCE * 

610 COL-3 



10 CAU CUM 

» si* rem: 

30 *EN C0UUIR «SSIN 111*1 
40 Ull SCHFJUB) 

w uii cotdib.it.Bi 
to uii ceiMii.n.si 
;a c*ii colm 

40 Ull 0010*18, 14.61 
» CAU C010»1 12.7.6) 

loo uii colosui.u.s! 

u in,*nrFfnnFfmfFFP 
i» uii atmiK.'ffffrmftntTTT' 

. 



i«t » 



iiujt* 



■ 

150 Will : 

Rub *mt«elin axcRE* 
las KM ECSSU helicopters 

199 Ull •C*»1?.»,!?0.1S) 
TOO Ull *HA«|7.8.121.I5) 
110 Ull KHARl 1,8.170.4) 
?» CAU KKASl 3.75. 170.4) 
.■>. CAU -ti»S<14. 13.128) 
240 Ull HC«M[I4.14.176.7! 
WO CAU KHUKU.1S.1ZS.4J 
260 Ull K"*»llfc.22.12S.3) 

'.i».ia.9i 

280 Ull NCHA*U6,1J.12S.1W 
250 Ull KkARU7.24.12S) 
SCO Ull HCWJU19.16.12S.7) 
HI Ull K-%tft20,l6.17*) 
O REM ROTATION NILE9 ■ 



130 I 



mm; 



WO Oil SCUtel i.JOO.v) 
ISO Ull 500*3(9.! 10,0) 
360 Ull HC*M(!6.10.123) 
370 Ull rtNAj*(i3.1J.:rs,s1 

aw un <w«[i*,».i») 

3S0 CAU HCHARi 20. 22.128) 
OS Ull HCHARU3. 13. 32.41 

UU HDM . 
00 UU HCKAAU8.9.37) 

UU HC<tUU3,19.12«.S) 

Ull HCWRU6.9.12S) 

UU tCHiJ>'.18,tD.12B) 
«fl UU *HASU3.i9.3?,4) 
170 CALL H£nUU6.9,37) 
M CAU * HAS 118. ID. J?) 

ISO meet : 

500 CAU CIEA1 

10 MINT TA8(4), -REGIES DU JEW 
420 WUKI : 
,30 PHInT "MWS D£»£2 LAR&UER UJt W» - ,'lll I 

oileubs. la ;»£■ 

-,it, pa:»T -iiAnCft EST i£ IW v.;-:. v.,.-, 
[Ml "FONdlO* BES UKEMS'.'H ■ U 




-vv 



-99 



A/rV 



no coi-a 

?;u rov-j 
no wisub jhu 

7*0 REM COUUURS Wl JEU 
740 UU COLORUO.ll.S) 
760 UU COlWtS.J.B) 

';o uu C01CS16.J.B) 
'ho uu cou»c.;.bi 

'90 Ull COLODIB.J.Sl 

BOO CALL C0l0*l9.2.6l 

BID CAU C0lMlU.I6.Bi 

820 UU C0UKdJ.13.Bl 

&30 CAU C0LfM{ 14,13.6) 

BO CAU COLORUS.U.a) 

340 BIN 0E5SIN 0U JEU 

B40 UU CMAR(l4B.'187CFFai4224i618") 

B7D UU CKAR[96.'FFFFFFFFFFFFFFFF*) 

&60 UU CMAR(1M.*FFFFFFFFFFFFFFFF-) 

&9& Ull CMR(149. - 367CFFB1422M81B'| 

900 ULL CMAR(IS2.'FFFFFFFFFTFFFFFF - ) 

910 CAU CHAR1143,'FFFFFFFFFFFFFFFF-) 

920 UU CNA91H2.TFFFFFFFFFFFFFFF') 

930 ULL CHAfltUl.'FFFFFFFFFFFFFFFF") 

940 ULL CHARll*6,"07GF3FFFIFJFQF07-) 

940 OIL CHAS{1SO,-OI01010101010101-) 

966 CALL CKAKU4F, 

970 CAU CWWU4S.-E 

980 CALL CKAStl»8.'E0F0FCFFF£FCFCEO') 

i90 CAU C(«R(149,-jaJCFf814;Z418ia-) 

1000 CALL CKWII33.-O7043FE3337F3F7O-) 

1010 CALL CHAH(134.'F00O8CC4FCCISUL0') 

I0JO ULL CtUSll59, - 4JZ499ME0SA3CL3-| 

1G30 ULL KHA*1!4.1.I41.1J) 

1040 UU CHA1H144.'FFFFFFFFFFFFFFFFF') 

10S0 UU HCHAJ)|;4.U.104] 

1060 UU HCHAHU4.14.S6) 

107O ULL HCWS|?1. 15. K4| 

I0B0 CAU HCHAAU4.U.152) 

1090 CAU KKADEZ4.17.144) 

J !0O UU XHAAia. 18.96) 

1110 CALL HCKAR(34, 19.1041 

1120 UU fKHMU*. 20. Ul.li) 

1130 CAU CHAR(128,-IF0O0347;f870102-) 

1HU UU CMAdUiS.-COWFSaEaiFCFSOB*) 

I1H UU CKW[130.*FE021F7!413F1F10-J 

1160 ULL CM*D(131.-OOC«OElFEE2COO"f 

1170 CALL CWIR|]36.*000003S77F47G302-) 

HBO ULL CKAJ!|137,'7F40FB6£82FCFe08 - ) 

1190 Kin INITIALISE 

1200 I07AL-O 

1210 FOR 1*1 TO i 

uro lonn-o 

1230 HEIT 1 

IZiu FOR t- 1 10 i 

12S0 CAU «HAP!1.3i 

1260 REM 

1270 «-l 



rioK wAotMet pomts 



1130 *I-UlO-l*IJ*»iBJM 

13*0 ci-mitin 

1340 « CI U10 1JM.1JM. 1380.1 

1 3*0 C*Ll KIWIU.i6.49) 

1370 C01D !4M 

1380 UU KBM( 1, 14.401 

1390 GOTO 1440 

1400 CALL KW.ail.lb.il) 

1410 0010 1440 

1120 UU *HA«|l. 16.47) 

Itji WTO 1440 

1440 CAU HCHAAI1. 16,43) 

1440 lfJll-I»l(.-RW))>I 

1460 CAU ICMlt(77.3,3f.2) 

1470 UU VCHAR{22,4,37,2) 

1480 UU 1CMA122.4.32.2) 

1490 IF »E»l-2 THEH 1400 ELSE 14> 

1400 ULL HCHARU2.4.146) 

1410 VX DIRECTION VENT 

1420 DFH3 

1430 UU !CMai22.S.U7] 

1440 ULL 1CHAM[23.4.H5) 

1440 GOTO 1670 

1160 UU K.KAft[22,4,]4S) 

1670 CALL HCKAS127.3.140) 

1480 ULL WWl»l23.3.i40) 

1490 BEH 

: ■ : . l . ■ . 

1610 IF AJ-1 I«« 3070 

1620 UU HCWW[TA.W.37) 

1630 UU HCWaiI»,IA'I,32) 

1640 UU H>A*( 1.1.123) 

1660 UU KWR(i.l.;.129i 

!6« UU KHA«IT.I,136) 

1670 UU HCNAS{T.I-1.137) 



1)00 «£M GE6I10N CLAVIER 

1710 CAU KET(O.E.F) 

1720 IF E-69 THEN 1900 

17» IF E'88 THEN 1940 

170 IF E*33 THEN 1990 

1749 IF E-6S THEN 2040 

1760 IF E-87 THEN 2090 

1770 IF E-82 TMEN 2I7D 

1)80 IF E-90 THEN 2240 

1790 IF E-67 THEN 2330 

1800 IF E-« THEN 1310 EL4E 1S60 

1310 VU-1 

1B20 NU-J 

1B30 REM DEF-LACENEMT KELIC0PIERE 

1340 IF W23 THEN 1710 

1860 6010 2410 

I860 IF £-67 THEN 233D 

1870 IF LM-1 ThFJi 2410 

IBBO IF AS-1 THEN J090 

1390 GOTO 1640 



MOD, ItOO.KTO.KTO.Ktt. 1**0 



1900 ( 



S O'IME 20NE REPEREE-.-MR DES t 



•1 
F I<2 TKEN 1920 ELSE 1620 
1920 T-2 

1930 IF AS-1 THEN 3070 
190 GOTO 1620 
1910 T-f 1 

1960 IF TJ23 THEN 1970 ELSE 1620 
1970 W3 
1980 WTO 1620 

. .:. 15*1 



2030 (010 3070 

2040 1-1*1 

2040 tt-0 

20W IF f>31 THEM 2U70 ELSE 1670 

2070 1-31 

&M ton tu . 

2DSO t'T-1 

on k . 

2110 IF T<2 THEN 2120 ELSE 7130 



2190 IF f<2 Tt«N 7200 ELSE 2210 



D '■'•: 

IF i>31 THEN 7230 EIS£ 1620 

1-31 

O GOTO 1670 

CD MIS ElSI 2283 
1-23 
S I- 1- 1 

ASM 

IF «7 T«N 2310 ELSE »70 

(-2 

C GOTO 3OJ0 



ftw IF v\v .*■ TW. ei:i 7M-, 

TtM rol'7<)-IOO*(l 

mh hh .-.'• 

26*0 IF £•!«« T-C* MM El 

Ttw ron»j'se-ci 

7700 GOTO 7760 

2710 II E-W THEM n» ELSE 77*0 

; -74*tl 
7730 WTO 7'U 

77*0 IF G-10* IMU 7790 ELM 7760 
7740 TOT! F)- »*(I 

7770 FEN >1 10 90 
7760 MEET J 
2790 UU tUAJ 

.:.. ■;;;:.--■ ;;>;[ 

7S10 M1I«T TiJ:si.'»ESiJlT*TS ua&UE- 

■■ ■ 

Mitt -sAin no i *iWi 

«I« *SAUT No 2 •.T0T(7)iTWR.. 

MINT -SAOT to 3 • i T0T(3)iTAli7O);-?li:«lS- 

■ .■■ 
mm 'SAUT No S -;T0Tv 
F81NT :: 
TDTAL'Tu7(l)'T0T|3)'lCI(3J-ICT[4).T{FHS) 

mm "row *>i2 imisi 

IF TSTAHIOCC THEN 7920 ELSE 7V40 

MINT -rOVS N'Ait7 FAS FSftl t*EiEi VK LAJCBCW 

C«»E*»TIDM«L- 

GOTO XI0 

RFJ-, TEiT F. ; ■ 

IF TOTUl-0 THEM 24» 

T^UI 7970 

no 7970 

>i» 7970 
IF IOTlil-0 TKSM 7920 

MINT 'IMU01 tOUS ETES f«£)*J-.'l Atari Ift OHUlIOM 
PKIM1 !! 

INPUT ■I0ULE7 IWS REJDUEB? lO/*)*;*i 
IF AS-'f TKn 30*0 ELSE JJ060 
ULL CiEAR 



30S0 GOTO 630 



CAU HCHASlTA.lA.37) 
CAU KMAJI(T*.IA*1.37) 
3090 UU HCHAJHT.i.; 
THEN 7360 ELSE 7370 3100 CALL HCHAR[T.1-1. 131) 
3110 CAU MCHAR[r.).:3J'. 
3120 UU HCHASd. 1-1.13*) 
ItCM 7)90 ELSE 1620 3130 COTO 1680 
3140 22-ROW 

31S0 2>ca-i 

FOB 21-1 TO lENIHSGI) 

23-73- 1 

IF 231-32 ThtN tflO 

22-22-1 



2400 GOTO 1670 

2410 LAR-I 

2*20 IT DV-1 THEN 24*0 ELSE 2*60 

2430 1W OESCENIE PARA 

2<0 H-HJ-1NH1-»I72V| 

7*40 GOTO 2*70 

2*60 H-HJ-lNKl'Kl-20) 

2*70 VVU'l/2 

2480 REM TEST AJUDEE SOI 

■ TiO 2S20 
2500 IF H-32 THEN 1570 
2S10 IF H-l 1HEN 7S20 ELSE 7440 
2420 CALL SOUND! ICO, *4C.O) 
7430 GOTO 2610 
24*0 Ull HCHM{V.II.1*9| 
7S40 FOR «•! TO 10 
2660 SEII t 

2570 CAU KhM<V.*.J7) 
!4SO 1-1*1 
2590 COTO 1620 

2600 8EM TEST RESULT*! lARUOE 
7610 CALL GCHARIVI.H.G) 
2620 'EM TEST CRASH PARA 
76)0 If TO>8 THEM 32*0 
76W lAR-0 



UU HCHAR(72.23,ASClSEM(MSa.n.llH 
. NE11 II 

RETURN 

CALL SOUMaUCyu.-).&) 

CALL KWRIV.M.149I 



i MSOS-'lARGUAGE TROP BA5* 

» COL-3 

» Wf 7 

3 GOSUB 31*0 

5 FOR J-l TO 100 



CALL HCWRtV.H.SI) 
MSGJ-' 

COL-3 
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BELOTE 



Void un programme qui permettra aux mordus du jeu 
de BELOTE de pratiquer facilement leur sport favori, et 
aux autres. de s'initier facilement & ce jeu bien fran- 
cos. .. 

Le logiciet qui vous est propose ci-dessous obeit aux 
regies habituelles du jeu. ce qui ne perturbera aucun 
joueur. 

Bien que le programme ait ete ecrit pour le nouveau 
COMMODORE 64, il pourra tourner sur les autres CBM 
a ecran 40 colonnes. en modifiant toutes les instruc- 
tions comportant un element -couleur". II s'agit en par- 
ticulier de la ligne 320. et des chaines de caracteres en 
PRINT qui contiennent des caracteres de controle de 
la couleur. Enfin, dans les lignes 3590 a 3610. ii suffira 
de remplacer le nombre 204 par 1 67, et le nombre 1 98 
par 158. La ligne 320 et les caracteres de controle 
seront simplement supprim6s. 

Notre version occupant 11 Koctets. vous pourrez 
gagner de la place en memoire en eliminant lors de la 
frappe toutes les lignes de REM. 



DEHOULEMENT DU PROGRAMME (P) ET ACTION DU JOUEUR (J) : 

IP: Distribution des 6 premieres carles et apparitions de la carte 

d'atout. a prendre eventuellement. 

J: Le joueur parle le premier, puisquec'est I'ordinateur quia dis- 

inbue S'iI souhaite prendre ta cade d'atout proposee. il 

appuie sur la louche "O". ou sur "N" dans le cas contraire 

2 • P ; L'ordinateur parle a son tour, et prend ou non cette carle S'H 

la refuse, il propose au joueur un autre choix d'atout. 
J : II choisit une couleur d'atout en appuyant sur les touches 
"A,Z,S. ou X" qui portent le dessin de la couleur correspon- 
dante. Ou il peut appuyer sur "N' si aucune couleur ne lui 
convient. 

3 - P ; Si le joueur ne prend pas, le programme (ait son choix egale- 

ment, el lindique. Eventuellement, une nouvelle donne est 
effectuee, et le cycle reprend. 

4 - P : La carte d'atout est attribute a celui qui I'a demandee, et les 

dernieres cartes sont distributes. Puis les 9 cartes du joueur 
sont rangees par couleur et vaieur sur I'ecran. 

5 ■ P: Le programme recherche les annoncesqu'il peut posseder.et 

les affiche a I'ecran pour obtenir laccord eventuel du joueur 

J: Le joueur accepte ou refuse I'annonce de l'ordinateur en 

appuyant sur les touches "O" ou *N" Puis il affiche la vaieur de 

ses propres annonces. en tapant leur vaieur, suivie de I'appui 



sur RETURN. A noter que le programme ne controle pas 
rexactitude de la reponse du joueur 

6 - P : Quand le joueur doit poser une carte. rordinateur le Kn tnoV 

que en haut cfecran. 
J : Le joueur pose une carte en tapant au clavier le numero de 
cettecarte.quieshndiquesouscelle-a Lordinaleurcontrfile 
(sans tricherf) ta validite du coup. 

7 - P: Les cartes posees apparaissent dans le tapts de jeu pendant 

quelques secondes. puis disparaissent. tandis que le score 
est affiche. L'ordinateur mdique qui fait le "ptr 

8 - P : Le 1 de der est egalement en compte au profit du dernier qui 

ramasse. Le programme indique enfin qui est le vainqueuf.en 
tenant te compte du score conformement aux regies hatx- 
tuefles. 
J : Le joueur a la possibility de recommencer une partte, en 
appuyant sur "O" ou *N* 

Belote. Rebelote et dix de der! 

Jean-Pierre LALEVEE. 
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BELOTE N 2 


CBM 64 J.P LALEVEE 
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REM •• 




DROITS RESERVES 


M 



2M 



REM •■«••••••••••••••••*• VARIABLES •••»••••••••••••••»< 

DIM UX<?,3>;REH INOICATEUR DES CARTES SORTIES 

iREH NO OE CARTES PAR COULEUR (MACHINE) 
OIM J<3>. .!•<=*! iREM HO * OESSIH DES CARTES JOUEUR 
DIM MO>,M»<3>iREM NO A DESSIN OES CARTES MACHINE 
DIM VJ<9>,VN(9>iREH VALEUR PES CARTES DAMS LE JEU 
OIM N*(9>:REH CARTES A MONTRER EH ANNONCES 
O*-- HI -IREM EFFACEHENT 

I-RNO<RND<8>> 

!-0iff«,REH SCORES JOUEUR ET MACHINE 
E#-* i- 3 ^ V D eit' 1»TQ — +Q»- :REM CHAtHE OES DESSINS OE 

L*--Maaar:L2«-c**-aBaar:REM 4 emplacements ecran 
L3#-L2***ar :L4i=L3i--jMaaaiB«Br 

L1*-L**0**L« 



310 REM ••••••••••••••••»• PRESENTATION ECPAN • ••*••••*•«••• i 

329 POKE 5328e,l*iPOKE 53281, IS 

33© pRiHT-ar.-TAe<n>j-««»Mj*a» belote »••*•»•*- 

34© GOSLEl 3529iREM TAPIS OE JEU 

350 PRINT L4»»-3TJ . 1 . . . . . . . .- 

360 PRINT L4#»- M' 1 1 1 1 1 1 1 1 'ini" 

370 PRINT TA8<2>>-iai 12 34 56739" 

389 I 

39© REM ■■••••■■•■•••■• DISTRIBUTION OES CARTES ••»•••«•••••. 

400 PRINT Ll*;~3 JE 0ISTR16UE" 

4IO FOR 0-1 TO 4iKX(0»»9:HEXT 

42© : 

439 FOR N»l TO 18 

440 0-INT<4»eN0<I»),x=IMT-8WM«' I 
456 IF UK<X.D>=1 THEH 44© 

4«0 U«<X,D>-1 

470 -r- B"*MID9<E*,X*2*1 .2 ■ .m:0*<E« . 17-0»2,2> 

48© IF N/2bIMT<M/2) THEN O*Nv*2:J*<0>=F« : J<0>-<0* 1 >«I8*X lOOTO 

49© 0»<"*1 :'l -»:!1'0>»(D*l>#ie*X 

58© NEXT 

51© : 

520 REM •••••••■■•• *FFICHAGE OE L'ATOUT ET DES CARTES 

53© AT=.INT<M<7>^1©> 

RINT L2«i"3 ATOUT:-;M*<7>i- *iLl*:PRIHT O* ;L4» )TAO<2> 



S90 FOB ■■- 



'-■ ■ 



iPRINT JKG>, 



ill 



:H6XT 



57© REM ••■*■>•■■*><■• PRISE DE L'ATOUT EN 1ERE PASSE 

58© REM ••* JOUEUR * 

59© PRINT Llij'HI/CiUS PRENEZ <0^N>MJ- 

68© COSUB 359© 

61© PRINT r \j 

62© IF R*»-0"THEN 938 

63© IF R*0-N-THEN 59© 

648 REM ..*....*«-. ORD1HATEUR ***** 

65© FOR L-l TO 4lKX<L>-© 

66© FOR 0>1 TO 6 

67© IF M(0>>L*1©-1 AND M<0>a.«lO*8 THEN KZ(L 

68© NEXT 0,L 

698 PRINT Ll»: 

7©© IF KKCAT»2 THEH U«2 iPRIHT-aJE PREHOS > * iOOTO 

718 PRIHT-aXE LAISSE '-:PRIHT"BET AILLEURS tt.*.*.*/N>^ri 

72© GOSUB 359© 

730 PRINT Li« 

7*8 IF R«-*A- OR R*--Z-THEH AT-IHT<ASC<Rt>--3©>-l iOOTO 93© 

758 IF R»--S" OR R»--X"TMEH AT-IMT* <ASC<R«>-64>^«> iOOTO 930 

76© IF R»-0-N"THEN 718 

778 I 

78© REM ■■••••••••••■■••• PRISE OE 2EME PASSE 

79© Q-l 

98© IF k:;<0<<3 THEN 858 

81© U-ZiAT-CiPRINT Ll»,--OJE TEMTE i-jPRINT O* 

838 OOSU8 364©iREM TEMPOR I SAT I ON 

84© GOTO iee© 

85© O-O'IiIF 0<5 THEH 8©© 



89© Uy.<A,Dt-a 

9©© NEXT A. D:0OT0 418 

91© i 

92© REM ••••••■••' 

939 K— 1»U-I 

94© FOR a-7 TO 9 

95© 2-.t<0>iJ<O>-M<O) tM'O.-r 

96© Z«-JS<0»tJI(0><H-il<a>iHi'0>-2( 

978 NEXT 

998 ■ 

998 REM ••••••••«••• RTFICHAOE DES DERNIERES CARTES 

I0©8 PRINT L4«;TAB<26>W»<7>»-arjJ«<8»»-yi"»J«<9>»"ai" 

01© PRIH1 L2»lIAe(4,,-3J. , 

©2© PRINT TAB<4>* |»TOUT -MID«<E* , I5«AT»2,2>";)|- iPRINT TAB<4 




COMMODORE 



■• LE JOUEUR PREtC:INVERSIO"S *•' 



948 FEU *•••••••*••••••• >^.iHO€ME(IT DES CARTES 

©5© PRINT Ll*»-3 JE RANOE LE JEU" 

06© FOR O-O TO 9 

©7© IF J(OXJ(0*l>THEH 1180 

BCJ«<O>:Jt<O>-JI<0*l>tJI'0*l "B» 

■*?& ».-J.ca-:J'.0>-J<O*l>iJ<O*l>-Ai0OTO I06© 

19© NEXT 

t]^ PRINT L44»TAe'2'iiFOP O-l TO 9iPRIMT ;i<0 

12© i 

13© FOR Q-© TO 9 

14© IF M(O><Ml0*l >THEH 1 1 TO 

ISO B*=M»-.0> dM*<O'-M«'0*I > [M«<0<1 )-8» 

168 A-M<Q>iMf01-M<0*l) tMIO*l J-AiOOtO 113© 

17© NEXT 



19© REM •■• I 

2©© FOR O-l TO 9 

21© V»-8IGMT«<STR*<J<Q>>,1 

22© A-J<0>!GO5UB 1310 

238 VJ<0>-©tNEXT O 

249 i 

259 FOR O-l 10 9 

268 Y«-RIGHTI(STR*<M<0>>,1 

2^8 A-n<0>iOOSUB 1318 

28© VM<0>-©iHEXT 1 0OT01388 



ACQUISITION k:. VALEURS ocs car- 




REM •*** SAP CARTES SRECIALE~. 

IF A-AT4I0-3 THEH 8-28.-RETURH 
IF A-AT»1©»2 THEM B"14tRETURH 
IF V»<;>fIHEH e2©iS£TURM 
IF V«>-5"THEH e™vAL<V»>*4:RETURN 
B=VAL(V«>-I l RETURN 

REM ■••••■•••••••• RECHERCHE OES ANHOHCES 

PRINT L1»(-3JE CHERCHE MES ANHOHCES' 

REM ......... SUITES ............. 

OATA 0,1,2,6.3,4,5,7,9 

FOR L-l TO 4 iAN*e [RESTORE 

FOR C-l TO 9:REAO A:A-L*19*A 

FOR O-l TO 9:IF M<0>-A THEN AM>AN<1 iH*(HN 

HEXTO 

IF »02 THEN GOSLEl 1640jREM VOIC1 UNE SUITE 

FOR OM TO b:MKQ)«" iNEXT :AN>0 



REM .*.*..„.. CARRES .*.*......... 

FOR L-I TO 4iAN-0:F0R C-8 T07 

FOR O-l TO 9:IF M<Q>-L*10*C THEN AN-AN* 1 :N*< AN1-M»<0> iOOTO 155© 

NEXT OiIF AN-4 THEH GOSU8 1640iREM VOICI UN CARRE 

FOR O-l TO 4:N»<0>---iNEXTtOCTO 1560 

NEXT C * 

NEXT L 

IF M-© THEN PRINT Ll*)~SJE N'AI PAS O'ANNONCE '" 

PRINT L*;-«-iO»iIKPUT-:3»rt*.EUR DES VOTRES -»R*iPRINT L4)-«-|Oi 

J-VAL<R«' 

IF J<8 OR J>18© OR RI0HTt<STR»<J>,l>O"©-THEN 158© 

PRINT Ll*>L3*iTA8<5))-jaBVOUSi|-)JiPRINT TA6<5) I -S*W1 19" jNiGOTO 1 

PRINT LI* 
NEXT 

IF POflT THEN 
FOR A-l TO 5 

IF LEFT4.NI. A 



FRINT L»»"; 
GOSUB 3599 
IF R*-*N-THEH 

N 



FOJN n ■ 

>,2>-' D*ANDLEFT«<H*tA>n 
'ACCORD (0VN> "W > 



.2--- R-THEHF«IHT-# I 



.-."• 



•••••• Vi*.£i»r OE L'AMHOMCE "i 

■ ■ "■ ■■: ..■ ■ 

PRINT ll«?*J£ ■ ONTINUE' it Mill 04 il I 




REM ....... 

COSUB 350© 

IF WT K THEH 8740 



! • A OUI PC TOUER ' 



P-VAUR* l (PRINT LI* 

REM •■* VERIFlCATIul 

IF J<P>-0 THEN 1980 

L-INT< J<pl^l©>iIF V»© OR L-V THEN 2819 

H-O ,R-© 

FOR A- I TO 9 

IF J<A>>-V«IO fC J.A>CV»I©.8 THEN HI 

IF J<A>>-AT«1© ANO J<AXAT«I0*8 THEN R-l 

NEXT 

IF H-« RND(l.~At OR P-v"THEN 2010 

PRINT llt:-| PEJOUEZ SVP t - iOOTO 1060 

PEn ....... cnRTE RCCEPTEE ** 

OOSUP 3160iREH AFFICHAOE OE LA CARTE 
IF E THEN 2350 




C0><L«l**t) THEH R-| iS<0>>vn<O> 

. ... 



FEM ..... IEU OBNS LA COULEUR * 
IF L=AT_ THEH 21Sa_. 
R-OtFOR O-I TO 9»S<0>«-I INEXT 
FOR O-l TO 9iIF MiO>>-L»10 ANO I 
NEXT t IF R-0 THEN 2150 
FOR 0-9 TO 1 STEP- 1 I IF S<Q'>VJtl 
NEXT 

FOR 0-1 TO 9iIF S<0»*9 THEN ;:■■ 
NEXT 



Ptn • •• JEU A L'ATOUT 

R-OiFOR O-ITO 9iS<0>--l INEXT 

FOR O-l TO 9iIF H<0)>-AT«tO ANO H<0>«RT»I< 

NEXT 

IF R-O IHLN ,:•..»• 

IF L «T THEN 2240 

FOR O-l TO 9iIF S<0>>VJ<P> AND 6(0X14 THtN 39< 

NEXT 

FOR O-l TO 9rlF 5<0>>VJ<P> THEN 234© 

NEXT 

FOR O-l TO 9ilF S*0»-1 AND 9(0X14 THEN 234»1 

NEXT 

FOR O-l T09.IFS<0»13 THEN 234© 

NEXT 



RFM DEFAUS3E • 

FOR C-© TO IliFOP O-l TO 9. IF VM<0)-C ANO H(0><>0 THEH 2340 
NEXT O.C 



tt.H •••••••*■.*•••>•. Ml, I I..".'*.,. | ' ••■••••••! 

QOBUJJ ■ N 

PRINT L3»l~a • POUR •> 

IF L-V THEH .'■»*«.' 

IF L-«T THEN 242(1 

IF V-Al mi I 

ON K*2 OOTO 24ii'.. 

IF VM(0>>VJ(P> THEN 243© 

IF VM<0<-VJ(P\ A»0 M'Q>>T'P*T>4TN 24?© 

PRINTVOUS •".J-J.VJ(P>.vn<0>iK— ItOOTO 2449 

PRIHT-MOI • -iM-N.vJ<P>.VM<01iK-© 

M(01-OiJ<P>-9 

PRINT L3*iTne<S>>"aaV0US>9"jJir > RINT tao«s>»-: 
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C'EST NOUVEAU, CA VIENT DE SORTIR I 

7 f m 



UN NOUVEAU SHARP : le MZ 700 
Notre vocation n'est pas de parler des derniers ordina- 
teurs sortis, nous ferons toutefois une exception pour 
le SHARP MZ 700 qui reste compatible avec les 
anciens MZ 80 etMZ 80 A (le basic n'etant pas resident, 
il suffit de charger I'ancien basic 5025 sur le MZ 700 
pour avoir une compatibility totale avec les anciens 
materiels). De plus, et c'est ce qui motive notre article, 
la politique de SHARP sur ce produit est a 1'avantage 
de I'utilisateur. En effet. le MZ 700 apporte des avanta- 
ges non negligeables non seulement par rapport a la 
gamme SHARP mais egalement face a la concurrence, 
jugezplutot : pour environ 5000 francs, vousavez droit 
a la couleur, une imprimante 4 couleurs et un lecteur 
de cassette incorpores. une page de caractere graphi- 
que supplemental, la possibilite de travailler sans 
ecran avec Timprimante. 64 K de RAM (36 K basic 
charge), des paddles adaptables. I'acces direct au lan- 
gage machine, un clavier tres complet et une 
documentation complete en FRANQAIS . Guand on 
saura que dix jeux sur cassette sont disponibles avant 



la fin de I'annee, que VIF1-NATHAN developpe des logi- 
ciels pour cet ordinateur, que plusieurs livres sont 
prets a etre imprimes et que HEBDOGICIEL publie le 
premier programme (en couleurs!) pour cet ordina- 
teur, il ne vous reste plus qu'a vous conseiller de 
demander une documentation chez SHARP ou au 
journal ou a vous precipiter au plus vite chez votre dis- 
tributee prefere pour titiller le clavier du MZ 700. 



Le premier package du MZ 700 (2 cassettes avec 
manuel en FRANCAIS) comporte 10 jeux : SUPER 
PACKMAN - BATTLE GAME (jeu de balle) - CIRCUS 
STAR ou vous devez, grace a des performances de plus 
enplusdangereuses.sauverlecirquedontvousetesla 
vedette - MOVING SEARCHER, LAND ESCAPE. 
ROUND SHOOT et SEND 1, jeux d'arcade qui vous 
emportent dans le cosmos. PAINFUL MAN et MAN 
HUNT, jeux de labyrinthe et SNAKE AND SNAKE, jeu 
d'adresse contre t'ordinateur. 
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Cours de BASIC APPLESOFT "LENA 1". 
Pour 475 francs. 26 lecons de basic pour APPLE II. 
APPLE II+, APPLE II et compatibles. Le cours est en 
francais et se presente sous la forme de 3 faces de dis- 
quettes et d'un memento de 80 pages 21 x 29,7. Vous 
saurez tout sur le graphisme basse et haute resolution, 
sur la musique avec Apple. 120 programmes sont pre- 
sentes, commentes et essayes a I'ecran. 140 questions 
sont traitees. Plus d'excuses pour ne pas envoyer des 
programmes geniaux a Hebdogiciel! Documentation 
au journal ou a Andre FINOT - 8. Allee BUFFON. 91000 
EVRY COURCOURONNES. 



Nouveautes pour MULTITECH MPF-ll 

12 cassettes a environ 75 francs: AUTOBANK. HIGH 

DRIVER, courses de voitures - PYRAMID, casse tete 

pour sortir de la pyramide - COUNTRY CARNAVAL. 

SPACE INVADERS pour enfants - OX GAMES, un 

OTHELLO - SABOTAGE, une histoire de parachutistes 

en mission -ALIENS, poursuite spatiale - Quatrejeux 

educatifs. Multiplication. Addition, Soustraction et 

Division. 

Plus serieux et plus cher - environ 200 francs - une 

disquette ASSEMBLEUR, DESASSEMBLEUR et 

EDITEUR. 



ORIC FRANCE ANNONCE DE NOUVEAUX LOGICIELS 



BIORYTHME 
Prix de vente T.T.C. : 80 F 

II s'agit d'un programme de biorythme classique pour 
s'amuser entre amis. D'apres votre date de naissance, 
vous apprenez immediatement votre forme physique, 
intellectuelle et emotionnelle. Vous pouvez poser la 
question sur la periode ou le jour que vous desirez. 
D'autre part, vous pouvez comparer votre cycle bioni- 
que avec celui de votre partenaire sur le plan intellec- 
tuel, emotionnel et physique. Une moyenne de (en- 
semble vous permet de savoir si le couple concerne 
possede ou non des chances de se maintenir. 

ORIC PHONE 

Prix de vente T.T.C. : 200 F (avec cordon de raccorde- 
ment telephone) 

ORIC PHONE est en fait un fichier telephonique avec 
possibilite d'appel en tapant le nom de la personne ou 
de la societe a joindre. ORIC PHONE fonctionne comme 
un veritable composeur telephonique. 1000 noms 
peuvent etre exploites grace au fichier mis en memoire 
avec I'ORIC. 

Un cordon relier directerrtent I'ORIC au telephone. Le 
fichier peut etre corrig6 ou complete par simple inter- 
vention sur le clavier a tout moment. 

ORIC MUSICIEN 

Prix de vente T.T.C. : 70 F 

Vous voulez creer un morceau musical : vous choisis- 

sez votre niveau sonore, I'octave desiree et un clavier 

de piano s'affiche a I'ecran (chaque touche etant affec- 

tee d'une lettre). Maintenant, vous pouvez composer 

votre morceau musical et meme le memoriser. Vous 

avez la possibilite bien sur de memoriser plusieurs 

morceaux et de les sauvegarder sur cassette. 

D'autre part. 4 morceaux sont pre-programmes, par 

exemple : le classique "Au clair de la lone" 

Suite page 13 



PETITES ANNONCES GRATUITES 



Vends MULTITECH MPF - II + joystick 
(neufs sous garantie) : 2500F + carte RUB 
SECAM SONOTEC pour APPLE II 400F. 
Alain, 522.58.60 ou 252.05.77. 



Uliiisateur PC 1500 en cherche d'autres, 
parisiens de preference. T6I. 588 48.45. 
J.-C. LAUWEREINS. 10. rue Vandrezanne, 
75013 PARIS 



Vends programme pour PC 1 500 PC WORD 
(logiciel de trattement de texte) : 200 F ou 
echange contre PC PLOT ou PC GRAPH 
Vends extension memoire 4 K octet : 150F. 
Jose GOMEZ, 1 4 bis, rue R.-Sa!engro.931 60 
Noisy-le-Grand. Tel. 304.63.46. 



Vends SANYO PHC 25 + cordons + cas- 
setle de demonstration 1800F. Etat neuf. 
Stephane PARDO. 4 bis, chemin du Bois- 
de-NAumone, 13011 MARSEILLE. 



Recherche correspondants possedant Tl- 
99/4A S. PIGUET. 82. rue du Bois-Hardy, 
44100 NANTES. 




Vends ORIC 1 48 K achete le 1 5 [Uin 83avec 
tous les nouveaux programmes existanls 
Xenon - Frogger 3D Maze - Poker - ULfRA - 
Pengoric - Doctor Genius + guide ORIC + 
2 revues Mic'ORIC + pts progs. Peritel 
incluse. Le lout pour 2500F avec garantie 
8 mois David GUEZ. 4, rue des Laitieres, 
94300 V1NCENNES Tel 374.54.7l, apres 
19 h. 



Vends ZX 81 4- Ext, 1 6K + 2livres 
"Eludes pour ZX 81 * et "ZX 81 a 
la conquete des jeux" + garantie 
6 mois : 1100F. Dominique 
KNEU8UHL. 56. rue de la Paix. 
68300 SAINT-LOUIS. Tel. 67.47.53. 

Recherche tous programmes 
pour PC 1251. ainsi que genial 
inventeur d'interface vid6o pour 
PC 1 251 . Pier ro Lenganey, pav. 4. 
"Les Hauts Champs". 76170 
LILLEBONNE - (35) 38.47.75. 

Vends 1 HP 41 C (Janvier 83) - 
1 module 82170 A "QUAD 
MEMORY' (mat 83) - 1 module 
82180 A "X FUNCTIONS" (mai 
83) avec manuel d'utilisation on 
francais — 1 modulo 82181 A "X 
MEMORY" (mai 83) - 1 module 
82106 A "MEMORY MODULE" 
(levrier 83) - 1 batterie rechar- 
geable 82120 A (sept 83) - 
1 chargeur 82066 B (sept 83) ~ 
1 livro "Games" (Users' library 
solutions). Vends le (out pour 
3500F ou le tout sans la HP 41 
2000F. Jean-Louis QUEIMADO. 
8, rue Louis Haussmann, 78000 
VERSAILLES Tel. 951.49.68 (a 
partir de 20 h). 



of f res > 
d'emploi 

70FlaligneH.T..TVA18.6% 



Vends ZX 81 16 K + CLA ABS + 
2 livres + revues + casset- 
tes (Mazogs. Chess. Gulp. 
ZXAS-DB. une vingtaine en 

tout) + proqs sur listing : 1 550 F. 
D. FRANCOIS. 79. rue Truttaul, 
75017 PARIS. T6I. 627.90 61. 

Possesseur APPLE II". carte 
CPM, cherche a echanger tout 
programme APPLE ' CPM Envo- 
yer lislo des programmes ou 
catalogue sur VteicalC. Docteur 
TOMASINI, Polycliniquc Ste- 
Marguentc, 89000 AUXERRE 
Reponse assuree 

Vends imprimante a marguerilo. 
Elat neul. Sous garantie 1 7 cps. 
Compatible materiel QUME : 
4000F Michel ROUSSEAU, ft. rue 
du Poirior-dc-Narsuy. 75014 
PARIS. Tel. 642.88.90. 



Sinclair- 

recherche DEMONSTRATEUR 
connaissanl ZX8I ou ZX SPEC- 
TRUM Perrode: novombre et 
decembre. Slage de formation 
(10 jours) r6munere\ 
Tclephoner de 9 h a 18 h au 
25616.16. 

n in e cose 



HEBDOGICIEL recherche pas- 
sionnes d'intormatique pour re- 
portage chez les constructeurs 
et les importateurs de rruitoriuls 
et de logicicls Redaction des 
articles, essais de materiel. Pos- 
sibilite de travail a temps partiel. 
Envoyez lettre de candidalure a 
HEBDOGICIEL. 27. rue du 
Gal FOY 75008 Paris 
Ne pas se presenter. 



HEBDOGICIEL cherche chel de 
publiclte. Temps partlol ou com- 
plet Tel au 294 28 50 pour ren- 
dezvous. 

Revendour PARIS 10° recherche 
vendeurs exp6rimont6s en in- 
lormatiquo grand public Salalro 
fixe plus interossement au chil- 
fre dallaire Ecrire a HEBDOGI- 
CIEL . 27, ruo du Gal FOY 
75008 Paris. Sous roforonco 
u! mi ■ 



DEUX SUPER-CONCOURS PERMANENTS 

10000 francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE EN CALIFORNIE 

au meilleur logiciel du TRIMESTRE. 



Un concours de plus ' 
Rien de bien original dans cette 
formule, pourtanl nous es- 
sayons de taire quelque chose 
de different : nous organisons 
un concours permanent tous 
les mois et tous les trimestres ! 
Et avec des prix dignes des pro- 
grammes que vous allez nous 
envoyer ! 

De plus, ce seront tes lecteurs 
eux-memes qui voteront pour 
leurs programmes preferes sur 
la grille recapitulative men- 
sued e. 

Pas de Jury, pas de decision ar- 
bitrage. HEBDOGICIEL n'inter- 
venant que dans le choix des 
programmes qui devront etre 
ORIGIN AUXet FRANC AIS. Si 
votre programme n'est pas tout 
a fait au point, un de nos spe- 
cialistes vous dira comment 
1'ameiiorer pour pouvoir nous le 
proposer a nouveau. 



Pour particlper, il vous suf lit de 
nous envoyer vos programmes 
accompagnes du bon de parti- 
cipation ainsi que toutesles ex- 
plications necessaires a I'utili- 
sation de ce programme. 
Vous pouvez obtenir gratuite- 
ment des bons de participation 
en ecrivant au Journal. 
Bonne chance! 

Reglement : 

ART 1 HEBDOGICIEL organise 
de facon mensuelle et trimes- 
trielle un concours dote de prix 
recompensant le meilleur logi- 
ciel du mois et du tnrnestre 
ART. 2 : Ce concours est ouverl a 
tout auteur de logiciel quelque 
soit le materiel sur lequel il est 
realise. L'envoi d'un logiciel en 
K7 ou disquetle accompagne 
dun bon de participation de- 
coupe dans HEBDOGICIEL ou 
envoye gratuitement sur de- 



mande par la redaction de notre 
journal constitue I'acte de can- 
didature 

ART 3: La redaction d'HEBOO- 
GICIEL se reserve le droit de 
selectionner sur la base de la 
qualite el de loriginalile les logi- 
ciels qui sonl publies dans le 
journal. 

ART. 4 : Ce sont les lecteurs qui. 
par leur vote, determiner! les 
meilleurs logiciels mensuel et 
trimestriel. 

ART 5: Le prix alloue pour le 
concours mensuel sera remisau 
plus tard un mois apres la clo- 
ture du concours mensuel. 
ART. 6: Le prix alloue pour le 
concours trimestriel sera remis 
au plus tard un mois apres la clo- 
ture du concours trimestriel. 
ART. 7: Le present reglement a 
ete depose chez Maitre Jauna- 
tre. 1 . rue des Halles 75001 Paris. 
ART. 8 HEBDOGICIEL se reser- 



ve le droit d'interrompre a tout 
moment le present concours en 
en avisant les lecteurs un mois 
avant. 

ART. 9 : La participation au con- 
cours entraine I'acceptation par 
les concurrents du present re- 
glement. 

HEBDOGICIEL: 27. rue du Gal 
FOY- 75008 PARIS. 



Sera declare gagnant le pro- 
gramme qui aura obtenu le plus 
fort pourcentage de vote par 
rapport a la totalite des pro- 
grammes recus pour_unjTieme 
prdmateur. 

Ainsi. pas de favoritism? pour 
les ordinateurs plus puissants 
ou tres diffuses. 
Nous reviendrons plus en detail 
a la fin du mois sur le systeme 
de depouillement du vote. 



BON DE PARTICIPATION 



Norn : 

Prenom : 

Age : 

Adresse : 

n" telephone : 

Norn du programme : 

Nom du materiel utilise : 

declare etre I'auleur de ce programme qui n'est ni une imitation m 
une copie dun programme existant Ce programme reste ma pro- 
priete et j'autorise HEBDOGICIEL a le publier La remuneration pour 
les pages publiees seront de 1 000 francs par page (un programme 
n'occupant pas une page entiere sera remuner e au prorata de la sur- 
face occupee). 
Signature obligatoire : 
{signature des parents pour les mineurs). 

Le programme doit etre expedie sur support magnetique (cassette 

ou disquette) accompagne d'un Descriptif Detaille du Materiel uti- 
lise, dune Notice d'Utilisation du Programme, el d'un emballage 
timbre permettant la reexpedition du materiel non publie 




MURDE 

BRIQUES 



Comme promis la semaine derniere, voila une version 
de rnur de brique utilisant toutes les possibtlites de ce 
nouveau materiel (rapidite, couleurs et manettes de 
jeu). Meme le listing est en couleurs ! 

Simon CHAGNOUX 




DURIEZ CALCUL OFFRE AU 
MEILLEUR LOGICIEL DU TRI- 
MESTRE UNE MACHINE A 
ECRIRE BROTHER EP.22, 
2 KO DE MEMOIRE, INTERFA- 
CES RS . 232 . C. 
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MEMORIC 



Le jcu regroupo do deux & ncuf joueurs qui ont tous 
pour but de rarmisser un maximum de paires de cartes. 
Apres avoir entre le programme iigno par ligne, tape 
RUN et admire le generique, vous repondez k la ques- 
tion NOMBRE DE JOUEURS V puis vous ontrez un par 
un lenomdechaque joucur.Les soixante cartes com- 
posant les trente paires sont alors melangees et affi- 
chees faces cachees. Le joueur dont le nom est inscrit 
en hautet a gauche retourne deux cartes en indiquant 
pour chacune d'abord le chiffre de la rang6e puis la 
lettre de la colonne. Si les deux cartes que vous avez 
retourne torment une paire, elles sont automatique- 
ment retirees du jeu et le memo joueur doit rejouer. Le 
compteur atftche a droite du nom du joueur est incre- 
mente de 1. Si les deux cartes sont diff6rontes il ne 
vous reste plus qu'a essayer de les garder dans votre 
memoire humaine et presser la barre espace pour pas- 
ser au joueur suivant. Quand toutes les paires ont ete 
trouvees le classement des joueurs et leurs scores 
s'aftichent. 

Quand vous serez devenu imbattable a ce jeu vous 
pourrez toujours modifier le programme pour que 
I'Oric devienne votre adversaire. un adversaire avec 
une memoire infaillible... 
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I.-H4I9..I lll«> tl'.UJ'' '111*111 II II III 




■ 



...II., 

:..■.„ 

.-. .1 

:.!.,. 

III. 1. 

3090 

1191 
il I.I 

n. .. 



MIL' II 1 III .1,1, ■, 

IF M<Q>-D«10*3 FIND mOXMU* 10*3 THEN 3130 

o-a-iiiF o iiu:n 3020 

1 » :■■: 1 1 1 

REM ♦ OU OBRNIBRI Mii-ll (11 .I'liMlim 
FOP Q-l TO 9iIF M,0»-O llllll III I 

I I |l. II I i|- . II;, 



-I-' 1 un 1 




I. .-.I 

3238 
3240 

1.-. 1, 
3260 
3270 

-,■,., 1 
10*0 

■ ,„i 
3310 
3320 



I I'll .■.I'- 
ll III II nil. p>." S " 

prim 1 ma 1 \>i<- \- 

PRIHTTP0K 1U>-| n" 

PR I NI rflB I in ■ " " 11. r .'■; 

I I IN l»>"\ 

PHIMI1IIU<20)*\ |" 

PRIH1 lull' .•! '- - S- 

PPIHII.ICf.V'- 

PR INI llili. .' l>"\ •• 

ppini tun. 1 •.< > - mvchis 12vX" 

' 11 

K 11 1 



1 .. v im ■! 



1 1 run ■ 'RMoar 

' PRIMl tin 1. 1,' .' 

I ' '■un 1 1' 

1 PRIHTTM8O0)' 

1 m-.-iiii inn. ■■>.■ 




11 ■■•! 

0J| t 

. . ,. 
. ., 
Mill 

i-.-H,. 



I',. >> 

I", *, t 



'"> ". I OR0TI ■** • 



CM lilt -|0 
FOR " 1 

PRINT ' 1 ■ ■ 

III XI 

CP1III I, Hi. 17 ,. 
PI ll».'t I 
■ I I 11 1 



.. 1,1 I 
MJB0 1 

I... .1 I 
n miv. 1 



SAFARI 



*- 



Ce programme ecrit par Alain Rebout. enseignant a 
I'ecole de Laleycourt, amuse beaucoup ses eleves de 
4 a 6 ans qui arrivent a le resoudre en moins de deux 
heures. Arriverez-vous a eviter les pieges de I'Afrique 
noire pour mener a bien votre safari photo? 



"••M.?ftVtftMM 

ecole ce lrhe'iCIMiRT 



3 OOTO LQ 

n stive '>ifR[OLe- 
lO POINT «T »,xe, ■ 



drngers oe 






Lft 6ROU33E. 



i chancer 'c-n ^ ax£e r< 



""ttlflfrttttU 

tCOLE DE LRMEi'COURT 

33000 reuionv 



10 prikt rt a 



W 



'.■o- 



DftNGCRS DE 



CAMION, 

30 print rt 9.1, "rttchtion rux 
r brousse. 
u0u3. pouvez 

0RD1N«T 



*B PRINT RT 14 . 1 
OEMRNOER OE L RXt>E 
" — «T 13, " 



30 PRII 
EUR EN RPPUVRNT 5UR 
BO PRINT RT 19,8; 



, RT 19,8. RT 21, 0, 



E CMRNCE- 



COMMENCER" 



RT 19. B. "BONN 
TMEN OOTO 90 



if i .■ 
T .» 

IHKEYt*"T" 



HEN goto 



rem iin 



130 PRINT RT 10. 8, •' 

133 PRINT RT ia.e. - 



149 PRINT RT 11.9, "5 R 
14.5 Xr INKC¥1-"S" THEN 
10,6, - 



13© PRINT 



133 GOt6 130 
*60 POINT RT 1 

170 IF INRtYd 



193 PRINT 9T 1 

200 if INK£-V«< 


205 PRINT RT 1 

210 IF IHCCV»( 

3 

212 REM 



213 cls 

220 GOS' 

325 LET 

-;--*, LET e* = * |_n 

227 LET Ct= ■■ 

226 LET rj(=- | I 

229 LET _j = a 

230 PRINT RT 2 . j.Ul.tn 

" *,«J,Cf;RT B,.j;C-S;ftT 6, 

233 FOR 1=4 TO 1* 



THEN GOSUB 4&i. 
• THEM GOSUB 40 
GOTO 320 



390 "EXT : 



■rr: c-r . 



, 2 ,' '^ *M * • 



330 CLS 

332 PCM 

333 GOSU 
340 LET 

342 LET BS-'" 

343 LET CS-"'i 

344 LET >■ a 



370 ir IN',EV»« 



RINT RT 8, I, 



TO STEP 



4 0". LET f -2* 
4 10 INPUT 9* 

412 let 



■fr. 

t/j ■ r; at 



430 PRINT RT 
4 33 NEXT N 
438 GOTO 410 



440 CL5 



4 30 PRINTER' 

ST 10, 10, " • 

5 ir timev» 

*60 OOTO 430 

433 PRINT RT 

. RT 10, 10, - 

470 IF IIIKEV 

4 73 OOTO 



00 



TMEN GOTO 465 



10, 10, C ■ 

:.-»- x tJ» 



312 if r. > 



„,-17 TMEN OOTO 60O0 
313 IF IHKEV*-*C RNO B>-13 THE. 
N OOTO 830 
320 OOTO sie 
3»3 rem an 3 

330 PRINT BY 4 , 22 . "^■™ , RT 6,22 

.;:«•-- jRT_3,aa, f;v m-.rt 4,aa, '■-- 
333 IF INFeCV IT »■•>■•■ THEN OOTO Eta 

THEN OOTO 6* 




zx 81^ BATAILLE 
NAVALE 



353 CL3 

357 G03U6 5B00 

360 LET R»«" 

361 LET Bi«" 

362 LET C«." 

363 LET OS- w 
36S FOR 1=25 TO STEP 
370 PRINT RT 1 1 , I, R*, RT 12, I, B« 

— 14, I; Of 

"• TMEN GOSUB 4 1 



!3 TO STI 



, RT 1 3 . I . c « . fl 



B7B IF IMKEYS 

360 IF I -3 RNO I 

000 

3BB NEKT I 



si 

SL_ 

6OB0 



10 TMEN GOTO 



-0 TO 1B0 



300 NEXT I 

603 GOTO 80 

607 REM flip I a »• ••», 

610 FOR 1=0 TO 120 

613 PRINT RT 10,12, '•-J K J ■• 

rt 10, ia; -."r k r ■• 



620 IF IIIKEVtT 



64O CL3 



3RFRR^PMOT 



550 LET RS-" -" 

532 LET Bi»" h. - 

634 LET C»." P' 

636 LET l>*»" ••rf 

633 LET ES- 1 * FT' 

680 PRINT RT J,g,fl|, 



- . B . B S, R 

6 . a , c * j-it 7 . q . c * . rt e- . 6 .- d * ; rt 

'.S.tl.flT 10,6, EC 

363 PRINT RT S,3S;R*,RT 3,2,6, OS 
.RT 4,26.C*,RT S,26,C»:«T t.a&JB 
%. RT 7,26,E«,RT 8,26, E» 

870 PRINT RT S, 17; Rt, RT IO . 17, B 
«;RT 11. 17, CI. RT 12, 17, C«: RT 13. 
17 o«,RT 14,17.E»,Rf 15,i7,E« 

375 INPUT 6* 



RT 2,2,' 
TMEN OOTO 3S 



4.0*,RT J.1,24. 

" TMEN OOSUB 4e 

OOTO 6000 
■ HMO Bl .20 THE 



680 FO: 

383 IF ©»<l 

690 IF OS <i 

693 

700 ir H!17 
TMEN GOSUE I 

'J 720 

7 10 GOTO 67' 

7is rem mm 

•-20 FOR T^0 
730 PRINT R- 
.RT 16,3,- 



F R R I- 
GOTO 160 



1 OOTO 17 



"F- TMEN GOTO 16 



tmen ooto se 



"I" TMEN GOTO 21 



TMEN GOSUB 400 
TMEN GOSUB 41C 
TMEN OOSUB 43G 



23 TMEN OOT 



■',RT 16,5; " 



THEN GOTO 78 



745 FOR 1^0 TO 10 
750 PRINT RT 16. S," 
' 13,5, " • . ( T »>>" 

735 NEXT I 

736 PRINT RT 16.5, ■■ 



775 G05UB 5000 

780 PRINT RT 5 
RT 0,20, fl* 

7B3 IF IMKEYi* 

790 IF INKE-i-»- 

795 IF F, 3 ■! T 

800 IF B>'J RND 

-.OTO 1000 



10 INPUT O* 



060 GOSUO 5000 

065 FOR I»26 T 

070 PRINT RT 
RT 13, I, C«,R- 

080 IF INKEV»»'C" ' 

090 NEXT I 

100 GOTO 6000 

200 FOR U-I TO 2B 

310 PRINT RT 11,U- 



-•■«■' G<QT<0 '" 



R*,RT 17,16, ft* 

TMEN G05UB 42 



•B.B.7.7.6. 



_ STEP 
1,I,R«; RT 
14, 1 . t>%, R 



220 NEXT 



ff 



26B P 

370 PRINT RT 6,10, 

380 IF INKCV»-'C" 

2B3 GOTO 1268 

390 CLS 

295 GOTO 10 

296 REM JEU 
300 LET R*> 



1303 PRINT RT 8,22, Rf 

1310 FOR 1-23 TO STEP 

1313 PRINT RT 8, I, ft* 

1320 NEXT I 

1323 CLS 

1330 GOSUB 5000 

1335 PRINT RT 0,»,A| 

1340 IF TNKEY*. > "C*" Tl 



MEN GOTO 



1343 PR 



r t..'i*"?f-' 



3,4, " 



OOTO *BO 



1330 PRINT RT 6,4; 



6,3, BS, R 



492 LET BS-" ■ " 
4*3 LET '.%■ /Wm 

494 LET os-" m~\" 

300 PRINT RT S.S.RS.I 

^Si'tSJh^R? ' %-Xl. *,,m 9. ... .. 



1380 IF 9* 



1375 IF OKI 
1380 IF OS<l 



. 8060600877777758606 
GOTO 8000 

-- L.C'I Q» 

>" TMEN GOSUB 400 

■'■ TMEN GOSUB 4 10 

I" TMEN OOBUB 419 

I" THEM GOBUB 439 

Si 1 THBM OOTO 1* 



14 15 PRINT RT 2.-, ,tl». 

'420°PRI*iT*RT 6,9, "OO". f<T 7,10. 

TMEN OOBUB 40 
TMEN G06UB «1 



ia» IF INHEVS-" 
IB* 
1437 IF INKEYS-" 

95 



1435 

-. .; ', ,h 



TMEN GOTO 610 



IF INHEV«=*7- TMEN GOSUB 41 
IF INKEV»= S" THEM GOSUB 4 2 
IF R<5 OR RH5 OR B>9 TMEH 
1^ r. , ,6 «NC Bl-6 TMEN GOTO 
GOTO 142 3 

OEM SnOB 9 NNtlNMt 

PRINT AT 2B. 2. ' S -,RT 20,2 

■rt Bl,a; s a -.ftT ai-2;- ► 

21,2. - • ■ 

IF INKEY*. >-% - TJIEN GOTO 14 



470 LET His' 



TMEN OOTO 840 



LET 1 = 

PRINT RT 5,&;R»,AT 10,0;RS; 
4,15,RS,RT 20,20;Of 

GOSUB 3000 
FOR .; = ! TO 22 

IF IHKCf».''C ; ' TMEN GOTO 151 



OTO 130 




Jeu d'action rapide ou vous devez couler les bateaux 
ennemis qui d^filent devant vous. Vous deptacez le 
viseur de votre canon avec les touches "'" "." '." "." 
Attention aux exocets ! (NB : MEMSIZE ? 30000). 

Philippe PAULIN 



IS PWEISHS.lSB'JWEiSHT.lZT'DeFIMTR-Z 
Zi faPI«32rBT?33n2 P£»DJ W5KEI.J «ai 
: ■ ■■-■■.-.- .. ■ :■: ;;:• :.:.. ;•:: ■:: ::■ ■; 
49 mtr 237.6S.15e.S«>22,a r 9S,221.U«.l 
'Jt WTi* 221, 1«, :. 3!3-£2I. 3*. 3.221, W 
69 Mffl 3. 213, £53. 223. 289. 221. 79. 6. 221 
78 WTB 78.4,213, £26, 8, IIS. 25-3. JS- 33- IS 
89 WTfi 247,25,13.32,248.281 
99 flv.389ee FOBI -399981038805 P£«I>J P>.£: . 

109 »Tfl 175.128,129.128,176 

110 CATS *6,46, 149, «6.*6 

:n -E,-:-.?:.:- =: = :-£'; ,:::■■- =.-:: :;- ■ ■; 

:.-:--■ ■■■■:■.■■: ■■■ ■■ .: : 

149 DflTB I28.129.1«9,lBe.l76.iee.l91.I93.1?l.!S9 176.153.::- 

::•: £: ■;:::: ; ":-;":::-;- -:■■:: ::■ -:■-: 

:-:? ;?=:■;?? '".--=-:•"■:: : -:-: "■;: 

:-;: :-•-::; ::: :;- :■: ;■::.:_ :a? ::: :. ._■■ :■--■ \r 

1=0 C*Tfll32.129,12S. 172. 131, 131. 136. 13*. 153 136,136.166.134 

i» as 

293 BI*59 Fl-58 v-1 Y*l 92-e 33-f S2< 
:■;-.-: -- -::=• ••■ 
JIS PfiWI«3«,Fl, PRIKTI972 5C ; -: 
439 X9-169?* 2-6 "12 X3.y8-62 

*S0 fKe^'-O *1>*M W2>«5 *3>2 IMSSWRPUKIKft))) 
:oj IF7EDW 14499 JfiMWTHEKT- -: ;.?-.■? ;:-:•■■.:.' 
318 IFPEEK :- 1J " ; '" I ' 
:.:; :--:;■ :■:"?:"■:■:■;'-£'•■•:-: ;■■ 

539 : : 'Zl'' :i;f?>»064THCiT,;.j ;.;■ 
5*0 IFF£EX<l44«)flWI29THEWOTSjerce 

. ■ 

: «B*K9-64 ;otoiC9B 
iie rFT>*i3n«NWW 

■ : : ■ ■ ■ ■' ■:•■:■ 

■ ■ : 

• ■'. :-:-: -7--:-: -,:-::?.v 
£38 in ■12nCNlWB 

■ 

708 Fl-*)-l f«Imt*362.Fi. lFFK«9T>d209e 

:.-<H780 
P28 89<>8e-«4 

725 FWI'lTOW 

739 *C>«e5 Wl)-EB'0<2>-!4 *!3>-2'(»SUe*90 
749 *.C>'K FK1 h*l R I -.:'•' -2 CKIJWOO 
■ 

- ; -iE fV2)-I3 (V3«-C09UBM« 

"■ Bi«ei-i £:-?;-: ntwrmis.K smxk more i . 




. ■ ■ 
■ 

ieeo wo-rs wim€'«2>-3 «■■;- - 

. . . -... 

■ 

•-EM1198 
_ "I-PNWIO PI-PI t«4 «"1335C-ft: 



-? -,. - 



4& 



e»o 



rB»8 TC-TC'l 
9 IFTBX0TWWM341 PBIMTJI996.e3> B1-8I-I G0TP12W 

we^-ee w. -*b ■>::'-!' no ■•■ ■■■■:''■ *i9WKK9») 

1 OTT059C 

Dl»« 

: 
.' »T0SW 
PPtwr^TC.'^PtilNE MI'I 

»0UB IW WTB€ PflPTlE ••> :e«tep>" TN^ITOt 
8 G0T0I90 




MEME SE NOIE V 



tpongez vite les gouttes d'eau qui s'infiltrent par le toit 
sous peine de voir votre grand-mere transformee en 
poisson rouge! 

Deplacez votre eponge avec les touches 5 et 8. Si la 
cuvette touche une des parois de t'6cran, le jeu s'ar- 
rete, il faut alors presser la touche representant la 
direction opposee pour relancer le jeu. (Cette version 
est sonorisee, mais la carte "QS SOUND" n'est pas 
indispensable). 

J.-M. at J.-C. JACQUET 



Suil<? page 14 
rt i,0, -n-iRT i, .11, n 



75 PRINT R+ 13.33, 

80 PRINT RT 13,23, 

BB PRINT RT 1* , |3j 

66 PRINT RT IS, 23, 

90 PRINf RT 1B.B3, 

100 PRINT RT 17,23, 

101 PRINT RT 18,23, 



7 LET H63-0 

fl CLS 

9 LET 3.0 




16^PR : 



171 POKT 



c, i, 
RT 7,1, 



...■n i I i i.r up •■} i i. L030O iSSflSI I 
r. ir;ivi,' 

330 LET BS-IMKEVB 
540 IF Bf( ■■ THEN 

330 lct BS* 

SOO LEI 



I GOTO 1060 



RNO*10I *1 
900 FOR I-O TO 20 
an] POKE YY.liB 

...i i vv.S 

lIi»*K, ...... 

920 PRINT RT 1-1,0;* 

nn« i r I CS-INKEVS 

O90 IF CS<>"6" RNP (*•(. ■■.«' Tilfit 

GOTO 1B01 

if* i r i !>»-(:» 

nni iri POS-AP09* IDS" "<• "' in»- 

807 IF PeeM IDFJLB»POa> -Jl mm 

■ jnnun r.nun 
608 IF PEEK (0FILE*PO8l -1*1 THE 

■ i.nin iBfiii 
,i.'t> i'iir-1 '. . . .■■•v 

' ■■ 

ice ile ►POBi . ogi 

BBB POKE (OFILE.HPOSi ,- 



GRANDE BOUFFE 



Ce jeu vous permet de satisfaire voire gourmandise en 

avalant des gateaux, des glaces et des sandwichs. Un 

gateau vous rapporte 50 calories, un sandwich 

30 calories, et une glace 20 calories. 

Mais attention, votre estomac supporte mal les saucis- 

ses et, si vous en ingurgitez trois. votre score revient a 

zero. 

Quant aux clous, soyez tres prudent avec eux, votre 

estomac n'est pas en beton ; un seul clou avale vous 

laissera K-0 et il vous faudra engager une nouvelle 

partie. 

Vous pouvez utiliser les touches du clavier ou les 

manettes de jeu. 

Marie-Claire PICKE 




IOO REM 




HO GOSUS 1900 11 REM INIT 




130 Vft-0 It VC-0 : s TP=999 




130 GOSUB 14B0 




140 RANDOMIZE 




ISO GOSUB 1240 




16© CALL SCREEN! If,) 




170 CALL CLEAR !. DISPLAY AT 


l,e>i"L 


180 CALL SPRITE.*!, 96,9. 96, IBO.VR.VC 


190 CALL MAGNI- • [31 




200 SCOftE-O :: B=»0 :: T-O 




210 REM 




2S0 REn &OUCLE PRINCIPALS 




230 REM 




240 ON CH GDSUB 9B 




290 call MOTlON<»l,W?,VC] 




260 CALL PATTERNmi. 100) 




370 GOSUE- TOO ■■: '--r-i 




280 ON CH GOSUB "SO, 1060 




290 CALL MOTiON<«l,Vft,VCJ 


c $£ 


3O0 CALL PATTERNIB1.96) 


310 GOSUB 700 


320 K-INT(RM 




330 IP IDS THEN 240 




340 ON X GOSUB 400.450,490,2 


0.370 


330 IF T>200 TKEN BIO ELSE 240 


360 REM 








3BO REM 




190 END . 




700 CALL C0INC<»1,»2. 10. M>:: 


IF M=-l 


MEN GOSUB 1 I 30 : : GOSUB 790 




710 CALL C0INCt.»l-«3, 10,11) .: 


IF M— 1 


GOSUB 790 




720 CALL C0INC<4t,«4. 10, M):: 


IF M— 1 


GOSUB 790 




730 CALL C0INC(»1.»5, 10. M>:: 


IF M— 1 


GOSUB 790 




740 CALL CaiNC(41,«6, 10, M>:: 


IF M— 1 


750 RETURN 




760 REM 




770 REM AFF1CHAGE DU SCORE 




780 REM 




790 DISPLAY AT (24. S) : "SCORE 


■ ; SCDR 



) REM SAUCISSE 

) D05UB 640 

) COLL SPRITE I.H2. 1QJ 



A GRANDE BOUFFE" 



> REM GATEA 
) GOSUB 640 

> CALL SPRITE <«3, l 



GLACE 



i REM 

i GOSUB 640 

I CALL SPRITEI44, 112 

< RETURN 

i rem sandwich 

i GDSUB 640 

i CALL SPRITECH5, 116 

i RETURN 

I REM CLOU 

i IF SCQRE<20O THEM RETURN 

I GOSUB 640 

i CALL SPRITEHI6, 15 

i RETURN 

I REM 

> REM RANG !< 

> REM 



TESSE 



:INT(RND- 
) V=INT<RN0*2O 
) RETURN 



70H 



690 REM 

THEN S=S*1 :: CALL DELSPRITE («2) : i IF S»2 1 
THEN SCORE =SC0RE*30 :: CALL DELSPRITE <«3) : : 
THEN SCORE=SCOP.E*20 :: CALL DELSPRITE l"4) : : 
THEN SCORE -SCORE -30 s: CALL DELSPR1TE<H5> : : 
THEN CALL DELSPRITE<46):: GOSUB 1210 



COINCIDENCE 



BOO RETURN 

BIO DISPLAY AT(12,7):"REPAS TERMINE " 

B20 REM 

S30 REM APPRECIATION 

84 O REM 

B30 IF SC0RE>2000 THEN DISPLAY AT<14.7I 

BAO IF SC0R£>1000 THEN DISPLAY AT 1 1 4, 2) : "J 

GOTO 9O0 

370 IF SCOPE -750 THEN DISPLAY AT(14,7):"JE 

SBO IF SCDPE.=500 THEN DISPLAY AT(I4,2):"Ur 

NGE" : : GOTO 900 

990 IF SC0R£-:300 THEN DISPLAY AT( 14. 7) : "PI' 

900 TP=2000 :: GOSUB 1450 

910 DISPLAY AT(18.7)!"UN AUTRE REPAS (O/TI) ' 

920 CALL K£Y<3,Rt.ET>=: IF E1=0 THEN 920 

930 IF Rl=t79 THEN 170 

940 IF Rl=78 THEN END ELSE 920 

950 REM 

960 REM SCRUTATION CLAVIER 

■970 SEM 

980 CALL KEV(3,R,E) 

990 IF R-69 THEN Vr = -:'j 

1000 IF R-8B THEN VR=30 

: lv IF =>«32 THEN VR=0 

I 'L'J RETURN 

tO30 HEtl 

1040 REM SCRUTATION POIGNEE 

1000 FEM 

1060 CALL J0TST<2.E,R) 

1070 IF R=4 THEN VR— 30 :: RETURN 

IO80 IF R=-4 THEN Vfl»30 : : RETURN 

1090 VP=0 ;: RETURN 

1100 REM 

I I 10 REM MANGER Z SAUCISSES 
1120 PEM 

1 130 DI5PLAY AT<I2.I2):"BEERK> ! ' 

1140 SCOPE =0 :: TP=999 

I ISO GOSUB 1450 : : B*0 

LI60 DIS=LA' ftT(12,l2>»" 

1170 RETURN 

1 130 REM 

1190 REM MANGER UN CLOU 

1200 REM 

1210 DISPLAY ATM2.12) 



GRAND PLAT 





ELECTRONS 



Ce programme est inspire par le jeu "Black Box", qui 
oppose deux joueurs, I'encodeur et le decodeur. L'ordi- 
nateur tient bien entendu le role fastidieux de I'enco- 
deur. Le but du jeu est de decouvrir la position de 
quatre atomes caches dans un espace de huit cases 
sur huit. en etudiant la facon dont il devie les faisceaux 
d'electrons envoyes du bord de cet espace. Le jeu s'ar- 
rete quand le chercheur pense avoir localise les quatre 
atomes. 

Lancer le programme par F1 PO ou par RUN EXE. A 
chaque question "DEPART", repondre par lendroit ou 
Ton decide de faire partir le faisceau d'electrons sous 
la forme x, y (le faisceau d'electrons ne peut partir que 
d'un bord. il est done necessaire qu'une des deux coor- 
donnees soit egale a ou a 9). 
Reponse de la 702 : soit "ABSORBE" (rencontre d'un 
atome), soit "SORTIE" et les coordonees du point de 
sortie. 

Pour terminer lejeu.il est necessaire de repondre "$" a 
la question depart, la FX 702 indique alors le nombre 
d'essais et les coordonees des 4 atomes. 



Nicolas STRONCK. 




LIST RLL 
■« PRS LIST 
VSR: 36 FR6: ISM 

PBI 539 STEPS 

10 Sim 38:?RT »- 
--ELECTRONS— 

28 C=8:Bl=IlfT !RflH 
i»3*l)*IHT (3RN 
Mfll/lliFOI ; 
=2 TO 4 

20 ft<I)=INT (RUM* 
3*l)tIi)T CRflKt* 
8MMB 

40 FOR 1=1 [( i-1! 

iFf)(i)=au) in 

EH 38 
58 HI jiKEXT I 
188 MP "iEPBST'Mi: 
S=8:IF 8=8 THEN 
1888 
lieC=W:lF INT 5= 

8!S=S+1 
120 IF iHT ii=5;S=S- 
i 

138 IF FRHC 0=8iS=S 

148 If'fRSC B=.9!S= 
S-.l 

158 IF UBS S'UIF ft 
BSS>.1 THEN 10 



RT "RBS0R8E 

8TG 188 
1T0 H£XT I 
188 T=0:P=D*1. J-R6S 

S:F0R !=! TO 4 
:iF ?=rKI)lT=H3 
S £-1.1:8010 28 
8 

198 HEX! I 

280P=8t68SS-l.liF 
OR 1=1 TO 4: IF 
P«fl<I>;ieT I:S 
OTC 230 

218 IFT4IT-1.HB 
; !!60T0 238 

228 :=-; 

230 IF T>8;D=0-S:S= 
Hi \i '.>■:: :he;i 298 

250 IF i>i5 IHEH 2S3 
2b5 ; r :: ^i 1=0 T.-iE 
29! 

■v. 6=.3 TH 
:, 298 
238 SOTO 168 
258 FST "SORTIEi'SD 

:GOTO 188 
1088 FST CI" ESS8IS" 
,°S0LUTI0K:*:F0 
R 1=1 TO 4:PRT 
[!TIB(I)iHEXT 
I 

ELECTROHS — 



S.S 



■ 
8.1 

fssofbe; 

!E : !F'; 

1.2 

SOPTTE: !.? 

DEPflRT? 

8.4 

85S088E! 

B.E 

9.2 
! 

I 

'» £.; ,: hie 



:; 



9=B«iF08 1=1 T 
I l: IF N(I)iP 



IE'. 



I-B0VAU/ M 



:2«0 
1250 
1260 
1270 



PRINT :: PRINT 



DISPLAY AT(24,Sl ;"PU 

5QT0 1230 

CALL CLEAR : j CALI 

PRINT "l=CLAVIEP' 

PRINT "2-POIGNEES 

INPUT "VOTRE CHOI 

RETURN 

REM CENTIER 

CALL CHAR<R&.'-OOOOaO7FFFB6D6O<iTjO&;,B'>FF7F'j0OO0O0r]00000OC0£O303i 

CALL CHARi 100. ' , 70FEPR8F3?OiOOOOOOOO06-7BPFFEF7O00000OC0E0E0F0: 

PEN 5AUCIS9E 

Z«-*00OOO0O0O00OO0< 

CALL CMAR(IOa,"OClE-E;C7C7BF9F3F0FBF87f)7C;EIEIC"t.7*!.f«) 

REN GATEAU 

CALL CHAP' loe.'OOf.'TOOOOOOOO!SIBFPFPPF7E'jOOOOOOO'-'/7»».Z,> 

REM OLACE 

CALL CHARil^.-OOOO'jOISZCTEFFFFFFTE^EIClCISOeOR^&ZttZ*) 

PEN SANDWICH 

CALL CHAR 11 It, , Orj7FFFOOFFOOFF7F ";.Z».."00FEFFO0FF00FFFE M !.7») 

REM CLOU 

CALL CHAR < 120. "2020202020202070" tZ,&T«&Z*! 

RETURN 

REM TEMPO 

FOR Tl-0 TO TP 

NEKT TI 

RETURN 

REM PRESENTATION 

CALL CLEAR || CALL SCREEN 1 121 

DISPLAV AT(S,B)i"LA GRANDE BOUFFE 

TP=*00 : ! GOSUB 1430 

FOR I - 1 TO 16 t : READ L 

CALL SPRITEI«I,L.5.33,64.I.e, 1,1*21 

NEXT I ii GOSUB 1S30 

FOR 1 = 1 TO 16 :s call DELSPPI te i.I ) : i NEXT 



TI99/4A 



:OWF0E0C0CO" I 



basic 
etendu 




1580 

1390 
1600 



CALL CLE A FT 
CALL SCPEENdSI 
DISPLAY AT(3,Z)i 
DISPLAY AT (4,31 : 



1,69 



) DISPLAY AT (7, 10»:"S0 CALORIES- 
I CALL SPRITE, N5.1I&, 11,64,40,0, < 
I DISPLAY AT(9,10)i"30 COLORIEE.' 1 
I CALL SPRITE .4.4, 112, 



Ell : I 



i.O.OI 
IRIES" 



HAIH ISSI B ■ 



NE DIOSRE PAS PtU9 DE - 

il ,r I I n I*! . i' ■'.. '. I2B. 120.0,0) 

SPLAY AH17, 171i"SC0RE»0'' 

SPLAY AT{19.3>:'TiON ESTOMAC NE BUPPORTE PAS LEU CI.OUS 
720 CALL SPRITE("6, 12m.?. 17/.. 4O,0,0> 
7Z0 DISPLAY AT (23,10)1 "PARTIE TERMINEE' 1 * 
740 GOSUB 1U0M 
7=0 FOR I-t TO 6 
760 CALL MOTIONOI.O. 1*9) 
770 NEXT I 

tbo TP»zooo : s aoaue 14=0 

790 F*ETLIRN 

BOO REM 

SIO REM 

B20 REM 

B30 I Dfl I -1 TO 42 

840 READ F.I It D-T»270 

BSO IF F-O THEN CALL liUDND (I). 44'.i, 30) ELSE 

B60 NEXT I 

B70 RETURN 

BHO RESTORE 1W0 




. SOUNDID.F.O.F 



B90 FOR I 

'.Oil 1,1 Mlj I 

910 IF F-0 
920 ME XT I 
930 DATA 

440, 



940 DATA 330, 
1,440,- 



TO (.4 

r II D-T»270 
THEN CALU S0UNDID.4 
RETURN 

,3,440, I. 370, .3, 4 
2, 330,. 3, 



30IELSE CALL S0UND(D.F,0,F»t2.23,F 

,-.3,440, .3, 376, -.8, 370, .8,494,-.: 

40, I 

.3,440, ■ 3,330, 1,494, . 3. 494. . 3, 440, 1,0,2.370.. 
3,370,1 
3, 494,. 3. 440, -.3. 440,. 3, 0,2, 330,. 3. 440, 1.330, .3.440, 

3,0,2.370,0.3.440. 1.370,. 3, 440, -.3. 440,. 3, 370. 1,494,, 

40. 1 

3.494, .3, 440,-. 3, 440, .3 



3,440, I, 
-.3,440, 



,3,33 
3,440 



i 392. .3,440. -.3,440, .3.330 



EDITEUR PLEINE PAGE 



soes CLS 

08 IB PRINT " I tod 1 qui f I** tlbvllt 
lOfta IVIC dtl IMI'illUM I») ■ 

eeaa point •• 



Le programme travaille sur les (ichiers constitues en 
pages. (2 dans ce programme mais avec la version 
48 K. il ny a plus de limite !) 

- La creation dim fichier s'obtient grace au choix | du 
menu. 

- Le choix Si autorise la mise a jour dun fichier situe sur 
bande. Pour cela. i! faut donner un nom au fichier. 

-Cenomest introduit grace au choix <3>au moment de 

sauver le fichier sur bande. 
-Le choix ® permet de definir des tabulations (en 

cours d'edition avec la commande "STEP"). 

- Le choix IB permet dobtenir la page sur laquelle on 
veut travailler dans le fichier. 

- Le choix <> recherche dans le fichier une chafne de 
caractere. 

- La fin du programme s'obtient par le choix 

Une fois dans I'editeur I'utilisateur dispose des com- 
mandes suivantes: 
=> deplacement a droite 
<= : deplacement a gauche 
ft ; deplacement en haut 
jl ; deplacement en bas. 
RUBOUT deplacement du caractere sur lequel on est positionne. 
ENTER : saut de ligne. 

STEP 

(symbol SHIFT + D Tabulation 



SPECTRUM 



WRITE 
(symbol SHIFT + W) 



RETURN 

(symbol SHIFT + Y) 



STOP 
(symbol SHIFT + A) 



Impression de I'ecran 



Retour au menu avec sauvegarde 
de la page 



Retour au menu sans 
sauvegarde de la page 



SAISIE DE TABULATIONS : le deplacement du curseur 
estobtenuaussiparlescommandes =>et<= Jecolon- 
nage etant indique par des * 



201 
320 
299 
301 
320 
390 
401 
4.20 
4.99 
502 
520 
S30 
5*0 
399 
901 
•J20 
330 
94.0 
599 
701 
720 
799 
399 
901 
910 
920 
930 



SO TO 9000 

LET f »-INKEV» 

IF (-* = "■■ THEN GO TO 10 

LET li =cor>£ r» 
RETURN 

fLflSH 1 

ro« I =1 to nUb 

if t n ) >c + i then g:> to 

next i 

INK (i-l) 

PRINT RT I , C, C» 

ri_OSM 

RETU RN 

BEn ^BHD - •»■■ 

LET dsita= 

-..TO- 
REM 
LET _ _ 
-Z rusn 
REM ■■___ 

if i <3S then let am i 

RETU RN 

REM ■■^B to haul MM 

IF I >0 THEN LET de Uas-3 
R ETU RN 

REM ■■■■ rubout MM 

IP POStj-0 THEN LET delta 

LET C»a" " 

LET l»(p*9t.POS4l)«» 

RETU RN 

REM MM un cjrjdire 

LET delt »=1 

LET C»*r« 

LET [»(pJ5«,p.Di>li stl 

RETU RN 

REM ■■ Ligne suivante 
IF l <22 THEN LET de t t a =3 

RETU"-- 



urn" 

ITS2TH. 



RETU RN 

rem mtm t«bu 

LET t*b«tab*l 



t i pnt 

b f HEN LET I 




tTtP 



1001 REM I 

1002 REM L_ 

lOlO LET TITpage.l TO 7fl4i«" 

1099 RETURN 

1102 REM lip/esiicn de ritnn 

lllO COPY 

1199 RETURN __ 



1 20 1 REM 



ll»l 



1210 GO TO 5000 

1299 RETURN 

-.'Ol REM ■ EDITEUR 

2010 CLS 

1020 LeT I »© 

J030 LET c -0 

;<B3B LET POS -0 

3B40 LET c*ol»lp«9«,PO*«ll 

2050 go sue so 

J060 LET de I la=0 

11070 OO SUB 10 

3100 IF ll)13 THEN OO TO JS00 

.'110 IF H)10 THEN GO TO J300 

2120 IF It > 3 THEN GO TO 3130 

2121 REM * =3 a gauche 
3130 OO SUB 100 

3179 GO TO 4.300 

jieo if n j9 then oo to 32*0 
2181 REM il «9 a droit* 

j, 190 1)0 5UB 2O0 

3239 OO TO 4.300 

.24-0 IF t H0 THEN GO TO 4-999 

324M REM »=10 en bat 

.'250 GO SUB 300 

2299 OO TO 4300 

2300 IF k)ll THEN GO TO 3330 
3301 REM n=n en haut 

3310 go sue 4.00 

3S9 GO TO •» 200 
J3SO IF K)1S THEN GO TO 3*20 

2301 REM *»12 effacer 

2370 GO SUB 500 

-I 15 CO TO 4300 

: 4.20 IF 1)13 THEN GO TO +999 

■421 rem *, =13 ligne »uiv»nt« 

3*30 GO 5UB 700 

34.59 GO TO 4.300 

2500 ir M32 THEN GO TO 3070 

'BOO IF DH3 THEN GO TO 3700 

.'SOI REM un caractece a uprii 

.510 GO SUB 600 



2. ■-■ ■? 



20 TO 



300 



TO 3000 



_. REM . . 

2701 IF K D19B THEN 

.710 GO SUB 1200 

3799 GO TO 4-300 

2300 REM inression ecran 

2301 IF * O201 THEN GO TO 3900 
3310 GO SUB 1100 

4-300 

3901 IF K 1)203 THEN OO TO 4.000 

-910 GO 3U8 900 
.J 599 GO TO 4300 

■t 000 reh ret unu sans. s.*ve 

10O1 IF t < >22S THEN GO TO 4-100 

1310 GO SUB 1000 

1099 GO TO 5000 

^100 REM chargeaent fichier 

■HOI IF H < > 199 THEN GO TO IJOyl 

L3O0 REM ■■^■■^HiMiMi 

1310 OO SUB SO 

1320 LET POM32»l.f^nii 

4-330 IF po&<0 OR 

TO 3050 
4 34.0 GO SUB 60 
)3*S LET C=c*delt* 

4.330 IF C)31 THEN LET C-C-32. LE 
T I at +1 
1355 IF C (0 THEN LET C=C*32.- LET 



)703 THEN OO 



1-399 STOP 

.001 REM M a'fiChtyt .111 m-fiu 

rem m^mmmmmmmmmm 

1-010 CLS 

^100 PRINT RT 0,3; "edi Uur de 

< te" 

3110 PRINT RT 2,0; "»»•»»»•#•*♦ 

;iao print rt 3,B;"« >tnu gene 

5130 PRINT RT *,B; "••*•»»»*••• 



'-•203 PRINT RT 9,3;"; 

5203 PRINT RT 10,3; " 

5204 PRINT RT 13,3; " 



5300 GO SUB 10 

3310 IF f*<"l" OR r*>"7" THEN GO 

TO 5300 

5320 OO TO bfCOOE (r»)-«S) 

5993 PRINT "■ 

5999 3TOP_ 

30O0 REM r 

9001 REM 

BOOS REM 



B 



"■"'■'■■'"" 



604O LET 

&0*7 PRINT 

&0S0 LET 

c.060 GO _ _ 

6070 LET de I l»-0 

3073 LET pOS-32 



r-ufl r-.' 



t »c 



080 CO SUB 10 
3090 IF CODE "" 
OO TO O110 
5100 IF CODE 
C OO TO 31 10 
3103 IF CODE rfia THEN 00 SUB 3 
OO OO TO 3110 
5103 IF COOe rf-13 THEN GO TO 03 



>9 THEN CO 3U8 33 
(!•« THEN OO SUB 13 



. 1\>-.- 


If ' « 


■ 


J GO TO 3O30 


. 108 


LET l S 


(page . c * 


*7) »"•" 


-109 


LET deite-1 




110 


LET (» 


=t t (page 


, C»97) 


111 


GO SUB 




113 


LET c - 


t <de it* 




1 IS 


IF < -32 THEN LET (-31 


116 


IF t tO 


THEN LET t -0 


1 IB 


LET ( • 


=igip*,e 


,1*97) 


210 


no Slid 




3220 


GO TO 


6O70 




^300 


LET x» 


'(• (page 


,97 TO 1231 


■3iO 


LET t » (page ,97 


TO 128) =•»» 


■HO 


LET t a 


b-0 




■ lie 


FOR i - 


1 TO 32 




-*30 


IF K*C 


1 J ■ • " THEN 


i b*l 


LET I 






i 4 50 


NE <T . 






C-4.&0 


LET n\ 


»b-l 




.■4-7C 


if tab 


^^^THE£ 


LETM*^1M 


C50O 


REM ■ 






6502 


REM ■ 






•999 

res 

/BOl 
7002 

7-eiio 


■SO TO 










^^L 


CLS 






7O20 


PRINT 


■■ e n t r e x 


IC ri(,» df ft 


7O30 


INPUT 


r% 




703S 


PRINT 


: PRINT 


(h»f?*ntnl 


en court 


* DRTR t 




7040 


LORO r 


• >1 


.■050 


PRINT 


■ent rez 


te nuaero de 


= aoe 
7060 


a" , "ed 

INPUT 


> Xtr " 
page 




.070 


CLS 






■000 


PRINT 


t» (page) 




74.99 

/5O0 

/SOI 
7502 
7510 


GO TO 


302^^^ 




REM 1 






LET pa 






7519 


REM i n 


i t i a I isa 






f»pi d€ 


avec DI 




'520 


DIM t ■ 


(2 ,704-) 
3000 




■ ivrid 


g?M T 8 




'DOl 


»auveg»f 


3010 


CLS 






;i015 


PRINT 


RT 0,10; 


"Hv«" 


• tf S P 


PRINT 


"tntrti 


te no* du ' j ( 


ni(f 








■ -10 


INPUT 


r s 




■0.10 


5 RUE r 


* DRTR t»l) 


.'200 


CO TO 

REM ■ 


3000 




P01 


page 1 


-■5 IO 


CLS 






■ :> ,- 


PRINT 


"tnirti 


i* nuftero de 


age 

5 JO 


INPUT 


page 




.540 


CLS 






3870 


PRINT 


t jrpageJ 
3020 




■700 


OO TO 

REM ■ 




>2O0 




■ 


CS10 


CLS 






^■620 


PRINT 


-ent rvx 


la Churn a c 








'6 30 


INPUT 


r * 




'34-0 


LET I I 


:-5on^ ? 




3.1S 


LET I* 




1350 


FOR i ■ 


1 TO 2 




■2 C.0 


FOR J. 


1 TO 70S 




2370 


IF t* 


IJ TO , 


♦ l l-l) "t • THE 
= INT ( j^32.1 . 


( LET paoe- 
.ET C-J-321 


i : LET I 


l-l: LET 


POftaj . PRINT 


"irouvt en 


page " ; 


i PrtUSE IOC' 


CLS 


PRINT t < Ci > 


LET [»T|(1I 


LET l*-'" 


: GO TO 


3O30 


.'3 BO 


NEXT j 
NEXT i 






390 






2O0 


LET L- 







>O10 


LET C ■ 







•2 2 


LET page«l 




■ ■ 


PRINT 


t » ( 1 ) 




1930 


GO TO 


303S 




'0O1 


REM ■ 


ini t i a li 


Jtuoni ■ 


1010 


DIM T" 


(2,704.) 




■015 


DIM K« 






DIM Ml 


(32) 




-02B 


DIM t 


32) 




>02fl 


REM ni 






10, "3 


LET nt 






.■03 


DIM b 


ftb' 1 




'031 


LET b 


11 -75O0 




1032 


LET b 


2) :70OO 




033 


LET b 


3) ,'000 




1034 


LET b 


d.) =6000 




'035 


LET b. 


3) iOBO0 




■• 036 


LET b 


c i ■adoi 




'03 7 


LET b 


7 < ■990 c > 




■ :■■ 


LET t»b»l 




0'^T- 


LET fit 


ab-1 




oe-0 


INK 






-0 70 


LET pa 


91 -1 
500 O 




■100 


OO TO 




jggg 


STOP 







^(r suite de la page 8 

XENON 

Prix de vente T.T.C. : 120 F 

C'est (a guerre interstellaire avec une fusee qui bom- 

bardeatourde role des oiseaux, des soucoupesvofan- 

tes, des monstres divers. Ces elements volants se 

defendent avec beaucoup de virulence. Tout cela 

donne a I'ecran de splendides couleurs. 

NIGHT FIGHT 

Prix de vente T.T.C. : 70 F 

Des immeubles gigantesques alignes les uns a cote 

des autres, un avion qui les survole en les bombardant : 

c'est NIGHT FIGHT. L'avion doit faire attention car apres 

chaque survol des batiments, son altitude diminue. 

Gare a lui s'il n'a pas detruit une des grandes tours alors 

que son altitude a trop baisse. 

BATAILLE NAVALE 

Prix de vente T.T.C. : 45 F 

Pour jouer a la bataille navale, crayon et papier sont 

necessaires afin de dessiner une grille de 10 cases de 

cote. Sur cette grille sont places : 

- 3 sous-marins 

- 3 torpilleurs 

- 1 porte-avions 

- 2 croiseurs 

La bataille se livre entre le joueur et I'ordinateur. 

TRADUCTION 
Prix de vente T.T.C. : 60 F 

Ce "jeu" tres educatif de traduction propose 6 possibi- 
lity : 



Francais/anglais Angiais/francais 
Anglais/allemand Allemand/anglais 
Franpais/allemand Allemand/francais 

Suivant la version choisie, un mot du vocabulaire 
anglais, allemand, francais s'affiche a I'ecran : a vous de 
la traduire. 

10 mots vous sont ainsi proposes, I'ordinateur vous 
corrige et vous donne une appreciation a la fin de "('in- 
terrogation". 

3D MAZE (avec sur la face 2 un logiciel "mur de briques") 
Prix de vente T.T.C. : 100 F 

Vous etes dans un labyrinthe qui peut avoir de 3 a 20 
pieces. A vous de determiner le nombre de pieces 
dans lesquelles vous souhaitez jouer. Comme tout 
labyrinthe, le jeu consiste a en sortir et bien sur, vous 
vous trouvez sur la face sud du batiment alors que la 
sortie s'effectue sur la face nord. 

CIROS 

Prix de vente T.T.C. : 60 F 

"Ciros ou les envahlsseurs fous". 

Vous commandez 8 hommes dont un chef designe par 

vous en debut de partie. 

Face a vous, les Ciros, Votre but est d'empecher les 

Ciros de sortir au sud du terrain. Malneureusement, 

chaque Ciros a genere un double qui n'est qu'un appat 

non reconnaissable. 

JACKPOT 

Prix de vente T.T.C. : 60 F 
L'action se deroule a LAS VEGAS, 
13 



On y joue justement ce soir au Jackpot avec I'ordina- 
teur ORIC, 100 F de credit au d6part et le jeu est parti. 
Que le meilleur gagne !... 

Apprendre le Basic sur ORIC 
Prix de vente T.T.C. : 180 F 

"Apprendre le Basic sur ORIC" consiste en une auto- 
formation Basic sur micro-ordinateur ORIC, 
Ce cours de programmation en Basic s'adresse a tous 
ceux qui n'ont aucune connaissance en informatique 
et qui souhaitent s'initier a la programmation en Ian- 
gage BASIC. 

"Apprendre le Basic sur ORIC" correspond a 2 casset- 
tes, et un manuel d'accompagnement de 50 pages. 

MORPION 

Prix de vente TXC. : 70 F 

Pour gagner au Morpion d'ORIC, il suffit d'aligner 5 pions 

dans une grille numerotee horizontalement et vertica- 

lement de a 9. 

Le jeu s'effectue comme un jeu de morpion classique 

avec tci le joueur contre I'ordinateur. 

MEMORIC 

Prix de vente T.T.C. ; 100 F 

Le but du jeu est de retrouver des couples d'objets. 

Au depart, des cartes a I'envers s'affichent 6 I'ecran. A 

vous d'en retourner deux et de marquer un point si ces 

deux cartes se trouvent, par un hasard bienheureux. 

similaires. 

Dans la negative. ORIC re mot I us tJoux cartes sortlflfl A 
I'envers. Le jeu se termine lorsque toutes les cartes 
sont visibles. ■ 



MEMORY 



Ce programme basic ecrit pour TRS 80 modele 1 
niveau 2. est semblable au jeu "MEMORY", 32 cartes 
sont placees sur I'ecran, faces cachees. En tapant les 
coordonnees d'une carte. le dessin de celle-ci devient 
visible, et I'ordinateur demande alors les coordonnees 
de la seconde carte. Si le dessin de celle-ci est identi- 
que a la premiere, vous avez gagne, sinon le dessin des 
deux cartes s'efface. Vous devez vous souvenir de 
leurs positions, car. pour terminer la partie, vous devez 
trouver les 1 6 paires de cartes. 
Un bon conseil: entrainez-vous beaucoup a ce jeu 
avant de le montrer a vos enfants. ils sont "tres forts'* a 
ce petit jeu!!! 

Michel FROMAGET 



iee if LPi'Tu-a then cm wwum.™. goto ies else m 
1?; I c L£FTKT«,IX*A* C*» left* ti.i »-d- r<« it.-- foimtwM. ■»«•. GOTO |7» 
l?0 [F HID«Tl,2,iXT 00 «It*T«-2.!»-B' THE* T«." powr*4?a. -nv gOTB IX 
IB GOTO !33 

aso pPiMt««s.;Toit7t;5C ■• priwdnw ■■ 

aSB."Pv:'*M»l'i-Ji:j ES3AI «%P.' DEV/tet OW1 (UTTRE. !>!"=- ■ 

r=;i .-;!;:■. ^, 

218 IF R»." T)£N 2K EL:E T».IS.e» 

;i; [F LEU- W« "€H c»J PRINH439 . Tf goto 2ifl ELSE »3 

320 IF LEFT* Tt, IK "ft- (jo uEFTKn.l»*D a th£h t»»" PPitfTWjg.-tf. GOTO 2« 

>k if nmcTt,2,ixT w nip«T».2.ij)-e- t>*h t«--- ppiitmw. ■«-. goto jc, 

£30 FEU ctwtCErtExr DES FflWrETPc; SUIVffll LE; VftFJfiS F£r*TS*E3 
233 IF !»■*«■ TWH X< iMUl.i K-1J423 SOTO ??3 

THEN X-t2 U-«<2) H-154W GOTO 3S3 

TNEH **15 K-WJi 4.1J443 GOTO 391 

TMEH y>2S «-W(4) K-I54M GOTO 393 

THEN )M3>IMKS) W-15437 GOTO 331 

Th€X X-46 M.W<S)H-15464COT0 3?! 

THEN y.M7'U=l*:r> H-1547I GOTO 3» 

THEN W4 1HKS) H>!M7a SOTO 3?: 

them mess u-ho^m-imw sot; w 
230 IF T*.-S2" TO* j-,.269 ■ icw, iq, H*13692 5CTG 335 
J95 IF H-'B3" them K-Z73 U-WI1) H-15£?5 OKO 335 
::-? : r :i=-Ei- --E'- :■*:« i;=i: :: »*:;r;v: ----- ;;.; 
2?; if Tt-"B5- them :'--: ; :- -■-:--■- ;--- -■•■' 

::■: :- -•-- ;■: -km ■ -;.--; :.=;.■ - ; -:•-:._■ --; --<• 

3M IF T«'-S7- THEN *"3Ki 1** 13; --i°\" 

316 IF Tt.-B8- TMDl ■*:■;•: rflSW SOTC 333 

JI3 iF Tt" CI" THEM *-51? W-HU7J H-15341 GOTO 333 

328 IF T1.-C2- THEN K-JJ4 U*w ;? H=>:;?4$ CC'TO ?53 

?s if Tt*-rc- then :■■*::; ::=:':?■ ^;z:-zz got? ;;; 

;?0 IF ts^'CJ- THEN X-333 U-WfM) H-1336Z GOTO 393 

333 IF TM-f:3" THEM »S43'(MK2n h»i;K3 GOTO 393 

3*0 IF Tl- »■ TtCH )M3a IWK22J w>!3?7S SOTO 393 

345 IF T^-C!" T1CM K»3;? ■ U-WC Z3 i W-13; 



;49 IF Tt*'R3- 

J43 IF Tf "AS" 

Z'A IF T»-'n4- 

333 IF -*'-&;■ 

260 IF TC.'AS' 
263 IF Tffi7' 
27B IF r«.'*9- 







330 IF Tt»"W" t^E)' /=3« m»m-::4) 


K-13??0 GOTO 333 


33B IF na-Df r^.; »^73 IMK2S1 


••=15137 SOTO T93 


3£o if !•=■-;■ net »no iHitas) 




3« if ™- ::■ no --r«-«rz7» 


-:v::: BOTC 393 


3T0 IF T*»'P4' THEM /•'W b«*C28) 


-:?;ir ;:-: ::-- 


37; iF t*. zz --;'. ---■-: -- ■;-■ 


-:-:::■: ','". ::•: 


398 IF ti*-:t *^E'i ."-■■:? WK39) 


—.&3Z GOTO 3?3 


333 IF Ti=-p7- THS< X-913 U»M(3!> 


H-15323 GOTO 333 



£33 IF C! ti^s jj- ^rr ; i^ 

S?3 IF 0»2 THES ^0?.S 7M 
«33 GOTO 178 

7M if vi*v2 n» B » B -: If M£ no -~> :.."£ 1 

7¥3 P^s-l 

718 FCB'l•■•lT039e■^€<rI , SEf Tf»Ft«:SSTION 

715 F£» EF?ace««T K3 3FRTE? 

728 BK|>=: ! :'.>£,::I > 

723 S*:2 7=STS,IHCX6.12=> 

733 BX3>^'-:-'Zt -: -'.V 

733 FOKI-tKB fcbj.-tm 

748 FClsTiJ-: ;i : FJOHTBC ?»■: 

743 'C<TJ'XI-X!*54'>2-«*«4KEXT! 

730 Tf M«" PRDfTHSS.'a*) 

73T : :*:^r:' Ff-E-:-: -: -:-t->. 

760 pet-jss 

--;r =e- -";r-P^ :et "_:::-st:>-3 

779 =o»r78«4g.STFIMC*(S3-' -> 

m pois-?(32- - ; : . - - -: : : = 

-i-: ;:-: -;r 

r?: «- r?7.E<E :::"■. 

798 W?INTS<t3.;T5!M»:6«.- •). PRIKT846« 

I-1T03W-MEXTI 

7?3 R*»" !•■" 

838 IF C»l THES 153 El.EE ZW ■ 



18 sen H£fl0lty '.vEjmw i.a - 89^19/1963) 
13 REM COf-rHICHT- niOCL F»C«*ZT i PCBOOCICia' 

28 JX£»-:»e:, SOTO 23 

23 DIB «54),2':32-.0<32J.K32) T-l P-l 

38 as FWIHTCHR»(23) 

39 -->-■: •' ^INT PffJMT ■ Pftl.ST* NEHORV 

48 prdct ppimt F*i>iT psnrr* iiocl frowzt- 



:?0 :F ;i»-5r the-, ,-^rj .:=.;:;■ ^=i?335 s-"u ;?; 

:?: - "= i-c-ri* ;ffee^h-i>o33 them t?3 

488 IF C»l THEM Kl-K'Kl-H GOTO 418 

435 IF C=2 Tj-E--' ;<2'S *2*-~. C-3T0 4]8 

■■•10 IF r>] THEil Vl-tl ELSE V2-U 

■nz :•■ y r;:~c nzaz^zz &-?. **',■:& z:z.z?z z-z '.•:- v.-: . . 

420 REIT DESSIH 0E3 CPRTE3 

■S23 rf. :=>=;■ ::: *-:--v:?: ,-:.--*' i?3. *:-=*■: :47, *>?*■:: 3: .-:-=*■ ::: 

438 «<2>'Ci1Ma23>CH^li3>r>i?^l?e><>P»'lK>*0«*<148>-CHS«129) 

-=53 ni.-}^:-=»-;-^;-c-=i::-5::.:-:«'i7? ; -:-;*-:77^:-=i-:r;/-:™i-:-i, ;: ■. . 

448 fltciwt«Ki3i ;+CK t *<i73.-:--a*'::: ..>;j.-;::.---?^ : 7- ;■>=•.; ::; , 

«43 f.s<2-«ch=*'. :^e .->.->• !i? :-:—!'. is? >;-?i^ i4? ; -c-^v i;= ^oiwt izg> 

430 fi«C3 >■>=»■ :7^.-::~t' 17? ,->=!' i-.;..'>:i' -^..-^j- ;7? .■*>=!■: 176) .SOTO £78 
433 RKir-C'-'l" [31 ;-CK?*'17?-CH5«' 131 :*cw*' '.3: >*Chf.»- 17r->*CHP»; 13: > 
468 F*2><?^«129j.CW!l<140>^^^17S>*CHF»(l<9>*CHff*::4g>CHS»:i23j 

465 f*v.3;<<:'- : :::7i, -'_---*: \~;-'.-'y. :75'-:^-*' :r=»-=v : 7-. -;-=*■ ;-■; ■ ;.;-: f-.;. 

473 a *'l ^OW I?! >:'-=!' '-■ ----!-■-■ .'-:f :?; -<:- V,r?>'09V :v, > 
473 I»2)OP»'128>y>fl*K2>*04H<l33>KHP»'l« , *^4r»-:«3'-CHR*(I29) 

498 F«3)<MR«<:76).|>rv:7?>-c-(e«i76)<w*;i76>-CHK»':73HK>*>«<]76) GOTO 578 
485 <WIM>«»cl31M:HP>(l79><H»l3l>V7^R*I?l>*C>««l73>*r>4»*;!3:> 

499 !W2M3^^:2?vCM*13*><>*^.174><MRKir'><t4Wcl32HCHP*<l2?> 

433 «*; 3 ><H«n(:75>tHB«ti79>*CHR»<i76>.cH«a< ir6 >:.■*■!- r; *o«»ci?6) gotc sra 

399 «<: >-CHP«:43>-CJ4»«<179>-CHt7»'13!'*C'*«;i3l>^'«»':7?)'CHF«C143> 

393 »<2>-CH»*I29>*CHS«162>*0»«<lS3>*CHei- :^>-1hp»- :«:>-;KR«(l2e> 

519 *W3^0HP*<:9^wCMPKl7?><>««vi76>-O4»l75>-a4»(|?5><H»« 1 5e> GOTO 578 

313 W :><>#* is; >.£'**: -"3 '-O** 17? i-CHPK179>^MJ»)73M>*»< (47 > 
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"391 PRIN 



1030 POKE 



:<04.o 

'OHO 



NT FIT M-0 

pnuse io 

POKE VV,» 

IP C(7 THEN I 

r*OF» i-i ro i> 

POKE YV.ltiO 
PRINT Rf 11 1 
POKE "r ' , 1 , m 



NCXT I 

POKE vv,e 

PAUSE IO 



166B LET RPOS=POS 
1661 NEXT I 

NT «T 

o -- 

COT" 



inni poke vv 



ooro 9i 
se to o l\tcp 

■ "B 

1.81, 



BOTO SSS 



^■mm' 



-■aeo let s-stio 

;«01 LET 1-20 

3002 PRINT AT 1,1 

"5O03 POKE YY, 108 

i8B4 POKE W.lOl 



-OlO RETURN 

1O00 PRINT P.T 20,»," 



■«3J0 
.1,135 

■ .HO 

■ 114 1 

'3*3 



PRINT FIT 1 
POKE VY.1BI 

row i -o io 

POKE W.I.: 

POKE VY,0 



i^l ,;r,i ,. 



HEBDOGICIEL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVEZ VOUS ABONNER AUTARIFPREFERENTIELDE 340 FRANCS POUR 52 NUMEROS AU LIEU DE 
52 x8,00 = 416 FRANCS 

NOM: . • MATERIEL UTILISE: 

PRENOM: CONSOLE: 

ADRESSE: PERIPHERIQUES: 

REGLEMENT JOINT: □ CHEQUE HCCP 



PENDU 



Void une version pour MZ-80 du celebre jeu de pendu 
qui a distrait des generations de potaches. Mais atten- 
tion, le MZ est impitoyable et si vous ne trouvez pas le 
mot qu'il a choisi assez vite, vous vous retrouverez rapi- 
dement pendu. 

Vous pouvez augmenter a volonte le catalogue des 
mots en data, remplacez alors la valeur 49 de la ligne 
50 par le nombre de mots entres. 



^ 



«P 



*» pffiNr-iBHraanaaa-tspciir^PENDuss: 

"» FOR 1-1 TOKtC ]4>^|^:B-E«'ai:NEXI 

68 Wlft LOglt IB LU i-*ft.FLECTROC(»fi lOGRftMME.^PHVW.PMOOUC SttVP 

:■■ ',- ■ ■" 

180 fATQ ELECWC^EFt^C^iP^fW.t^^ilE.E^C^jS^itp^^^LETIE MBS*** 

l^S wfa f 1l ^ R - M,WItt - KCC *^ CIER - KS,w ^E s, -tH«aEP.Pw^Pflmep.i«[p.;.EiiriP 

l«e DlKT»<2.LEN<Rt>> 

158 FOR 1-1 10 LQKM»T*U-I>-*.* . 

168 T*<2.l>=HIM<A».I.l)!NEXT 

m peoc fleniF ae»=-c- gotoi9« 
iee sotoito 

";-" ->+y] '■■ -"J ■ ■' *■:■■ ^' ■■•■■■ 

219 PRIMI-0 C^ll. 
229 GET 8*: IF 6f=" rt*M229 
238 IF flSC<S*H63 THEH228 
248 IF ASCl6**>?0 THEN228 

258 D*=M+G*+".-iFPiw«H 

268 PRINT"B-:SPC<36>:AO«: 

:-..i -i - o : t ' B 

288 FOR 1=1 TO L£N<Af> 

298 IF GJ-TK2.I > THEM T«2, ] ■ = ---: ft ■ 1. 

:88 IF Tf. l.I>»MIM<Rt,l,l)TWEM B=e>l 

318 USR<62> 

:28 PRINTT*<i.I.::nevt 

J38 IF AO0 TH£tC?9 

348 READ C*=IF Ct='l- THEtM98 

3J8 F*IMT-B-:PRINTSPC<25irf: 

J60 IF CI=NI n«H PPIHT-S3=-:LEFT*(H1.1> 

;?8 if e=LEM'«/THeH5Sfl 

:-88 S0TO218 , 
J98 DATA ■ 

488 DATA ' 



i FOP 1 = 1 TO LQJ<R*> sPftlNTrtlD*(A». I . I ■: :MUSIC" K*- 

3 F-PIIiT-a».V,? autm i-irtie 7- 

? GET 15*: IF St=-- THE1I548 

3 IF SJa'H" THEN Pp]MT-B":Ellt- 

J IF 6»"-0- TKE*l Put! 

» 60TG543 

3 pPiMT-ssasassssse-tSPCurM*, >■ 

? PPINTSPC'17.:-IGP6t€l" 

S PRINTSPC<17}»»' '■■ 

i TEMPOS 

J WJSIC'flB2J 5 * T3g »«RflRflRnB2VB3-B4tfl2' 

J PSIHT'B fout«J n« felicitations Vtall bi«n le no 1 

) G0T0539 

) PPINT"E-:P0t: 

} FO* 1 = 1 TO L£W<ftt>:PPlrfT-.-::USP'62>Me>a 

J PETUPH 





SHARPENTIER 







TOURS DE HANOI 



Toutes ces commandes sont a repetitions automati- 
ques: 
PC 1251 

Pour ce programme graphique, votre PC 1 251 sera un 
arbitre implacable. 

Sur le premier des trois piquets sont empiles les dis- 
ques de largeurs differentes, le plus grand etant a la 
base, refaites cette pyramide sur le troisieme piquet 
en sachant qu'il est defendu de mettre un disque sur 
un plus petit que lui. 

Si vous prenez 7 disques, il vous faudra 1 27 coups mini- 
mum pour reussir ce demenagement soit n disques = 
(2" -1) coups, ne vous etonnez pas si de petits points 
clignotent sur les colonnes d'affichage. Le 1251 fait 
son petit calcul! 

Catherine CHAVINIE 



PC 1251 



10:* * CLEM : Dirt Bf7. 

3>:E=tF3l6!B<8.1>=99 

iB<0.2)=99:B<8.3>=99 

28:PAUS£ ' •*• TOUPS DE 

HANOI •••*: INPUT * 

N0HBBE BE BISQUES:": 

0:0= INT 0: IF 0^1 

OR 0)7 IHEH 29 
39:B=0:F=2»0>1: FOR 1=1 

TO 0:3d.l> = F:F = F-2: 

NEXT I 
48:ufiIT 9: PRINT - ■: 

FOR 1=8 TO B-liV-V+2 

*«-!)! POKE E-0fI.V 

: NEXT I 
59:F0R 1=7-0 TO 6: POKE 

E*l-6*0.V:V=V-2Al: 



HEXT I: POKE E.S7F: 

POKE £*15-t7F: POKE 

E*30.87F: GOTO 210 
68:C6LL il!E8:S= VAL 

INKEV* : IF S<1 OR S 

>3 THEN 60 
70:Z=S: IF ft(2»l>=0 

BEEP 3: GOTO 60 
88: BEEP 1 
99:CfiLL £11E0:S= VAl 

IWCEYt : IF S<1 OR S 
■ : . THF.N 98 
00:X=S: IF Z=X BEEP 3: 

GOTO 60 
18:ir B<A<2»l>.Z>>B(fi<X 

♦1>.X> BEEP 5: GOTO 



126:EEEP U COLL S1I 
I39:L=E*15«<Z-l>- INT (i 

(fl<2»l).2>/2>: FOR N 

=0 TO B<A(2*-DtZ>-l: 

K=L»H 
I49:PQKE H. PEEK H AND f 

t27-2^<7-ft(2»l>)> 
I50:POKE E*15«<2-llit7F: 

HEXT H 
160:L = E*15«(X-D- INT fB 

(ft(2*l).Z)/2>: FOR H 

=0 TO B(ft(Z*I).2)-i: 

fi=2ft(6-A<Xtl>> 
I70:POKE H»L. PEEK (MtLJ 

OR R: NEXT N 
I80:B(A<X»1)*t.X)=B<fl{2» 

I).2)!8(fl(2*l).2)=0 




198ifl<Z»l>=ft<2*I)-|:«KX» 
l)=A<X«l>*I:ft=fl*l 

280: IF DeO CftLL tllE5: 
WAIT : PRINT 'BRAVO 
< "*: USING 'IMItt* 

;o;* coups. ■» end 

2I8:P0KE HFeee.8.8.fl.fl.8 
•O.8'8>0<fl: POKE tF8 

.,i-n.M..t.^.M.i',;>,n,.. 
>8.e>0>B: GOTO 68 



PRISONNIER 



Tentez d'enfermer un petit bonhomme dans le cadre 
qui se trouve au centre de I'ecran. 
Vous pouvez le depfacervers la droite avec les touches 
6 et 3 et vers la gauche avec les touches 4 et 1 . Lorsque 
vous croyez I'avotr fait prisonnier, fermez la porte avec 
la touche SPACE. 

Catherine CHAVINIE 



# 



3:"fl-:HPJT 78: 
PRIMT * « 
LE PRISOMNIER 
W-:CLS 

I8:B=280:P=8:O=3: 
M-8 

28:X-(BHO 2-1 J*12 
8:S^X;N<i0:BE£P 
1,28, 1308: LLS 

30:UIA1T 

35:GCURS0R 81 : 

SPR1NI "00007F 
4I4I414I4M141 
41417F0000- 

40: CURSOR 22: 

PRINT USJMG '• 
fiH-jB 

50:GCURSOR X 

B0:GPRIHT -000044 
S41E:iDIE84440e 
00" 

70:PR]NT 

90: IF ft»="6-LET S 

=S*6:0=8-.I 

95: IF fl«=-3"LET S 

=S*3:B=0-.05 

100: IF 0«-="4-LEI S 
=S-0:B=S-. 1 

185: IF «8«"I-LET S 
=S-3: B=8- . 85 

118: IF A»s- "BEEP 
I, I80:LEf B=B- 
5:G0T0 125 

I 28: GOTO 105 

125: IF XO83G0I0 J 
50 

I 30: FOR K^S3T0 75: 
GCURSOR K: 
CPRJHT U27- 
POIKT K>:0EEP 
1. 1, UHEXr X: 
GOSUB 300 





40S:FOR X*8I0 128 


720: 


IF ft«s- -LEI B 






=B- 28: GOTO 740 






738: GOTO 780 


GOTO 2,8 




748: J F X=G-t2LEr B= 






B-t70:6OSOB 308 




420: NEXT X 


:p=P-l:0 O'l: 




430: CLS 


CLS 




440;FOR X«178T0 


760:G=G-H 


GOTO 165 




770:1F &<8LEI S-0 






788: IF &>138LET 6= 




455: IF B<0GOTO 100 


130 






730:REIURN 






J080:P=P*O 




478: B^8*<0- tl-3 )t50 


1005:CLS :UniT 28 


IF X<53LET S=S 


475: IF B<0SOIO 100 


:PRIMT -j«u 


-l:GOTO 130 




fir.; Score: 


IF X<63LET S-S 










IHB7:UnJ! 10:FOR 


IF X>73LET Z--Z 


50B:Ual r 0:GCUR5OR 


X=0IO P: 


+]:&oro 130 


G:GPRIMI "0000 


CURSOR 21 I 




7F4I114141414J 


PRJHI USING 




414M17F0088- 


'HffX<BEEP 


X^INT (S*RNO 5 


510:GCURSOR X: 


I: NEXT X 


-3) 


GPRIMI -7F7F37 




IF X>126LET S= 


1B0I82618B3B77 


PR1HI 


128: X-S 




1010:IF P>ULEI U^ 




520: CURSOR 22: 


PsJNinJt "No» 


X*S 


PRINI USING "I 


?"i0* 


IF S<8GQT0 130 









530:PRIHI 






540:n«=INKEV» 




CLS :G0T0 35 


545: IF X-G'?BEEP 1 


)03B;rNO 


BEEP 5, 10, 10 


558MF A«<>*"LET H 


o 








-etGOSUS 780 


"s. 






588:«EIURM 








00- 


70B: IF A*a-4-LEI H 








UOII 7B:PRINT 










P=P*l:0=8'23: 


705: IF fi»=-J"LET H 








CLS : RE, TURN 










CLS : 6*60: B=B* 










I00:UfllI 200: 


715: IF fl«=-3-LE( H 













CALENDRIER 



Le 14 juillet 1789 etait un vendredi, le jour de I'an de 
Ian 2000 sera un dimanche. Combien de jours ce sont 
ecoutes depuis votre naissance? 






& 







&>-*DECEMBRE 


100: INPUT "QUEL 
MOIS ■> ";KI: 








FOP N-15T0 2 






CALENDRIER 


&:IF A*<N>=IC 
ITHEH 105 






20tPRIMT *CH0IX 


102:HEXT NiGOTO 






i JOUP / D1F 


100 






■...D-sIMPUT -C 


I05:H=N-M 






HOIX ? ■!!<•! 


110! INPUT -OUEL 






GOTO K» 


ANtCE ? "Ill 






3O:'J0UR"«C0SUB 


IF <I<170!>* 






"PRES*: GOSUB 


(n2099>*<I 


wM 




"PAIS"!N=(<H 


OINT (I>) 




/•?)-IMT <N-7 


THEH 110 








120: RETURN 








I30!*RAIS*HF M) 








2THFN 140 








135U = I-i:M--IH13 






4StH->lHT fN> + li 


i GOTO 130 






CflTO 52 


140:H=M*1 






50:N»IHT <M>+2 


150tN=INT <363.2 
















,6»H)*J-6210 






49 






1521 IF N>7t047 






IHtH 170 








1-54: IF N>?6522 






mi m l'-.n 








155!N*m2!GOT0 1 








70 


3tftt<6>="VEHDR 




I60iN-N»l 


EDI-ifi*<?)-" 




170:ROURH 


SA«DI" 






400: INPUT "RLCOM 


4:A«(15)= 






MI.I1CEZ-V0US 


IER*if»« 






■IKfi II i " 


-FEVRIER*<M 




= -niJI-THFU 1 









Af<18>- 






410! IF K»-"NON' 






nn ii 420 








415:G0T0 400 


5:A*(20)= 






420IPAU I "1 ft M 








RER TOUT POU 


ILLET-: 






R i 1 "IPAUSt 


>=*SEPTEMBRE 




■'PFHHJP t*i M 








EHU" 


TOBRE" 






430:f'R!IH -1 'i 


6ift«<22>= 


■AOUT 




VOUS PRET ? 


•ifl«<2: 






■TENTER >-: 


VEHBRE- 


ft»<2 


rHEN 90 


CHAIN "MENU* 



LE LOGICIEL 
DE LA 
SEMAINE 



T07 




VIFI-NATHAN propOSi 
THOMSON T07 cet 
de jeux tr6s varies dont vous 
pourrez vous inspirer pour 
propres realisations comme 
vous y invite la documentation 
fournie avec le logiciel. Ici. pas 
de problemes de traduction, 



tout est evtdemment en fran- 
cais. COCKTAIL 1 est diatnbue 
sous forme do cassette et fonc- 
tionne avec la configuration de 
base, sans extension. Neuf pro- 
grammes sonl regroupes sur 
celte cassette et H vous faudra 
reperer vous-memes les nume- 
rOs de compteur du magneto- 
phone pour vous repositionner 
sur votre jeu prefere. Les pro- 
grammes" sont tres simples et 
exploiter)! assez bien la faible 
capacite de la RAM d'origine du 
T07. 

Trois jeux de reflexion et de stra* 
togie vous sont d'abord propo- 
ses : GYRACOLOR, casse-tete 
dont le but est d'aligner des 
carres de meme couleur par pi- 
votement selon le principe du 
celebre cube - GAUFRE : savoir 
anticiper le jeu de l"adversaire 
atin de ne pas avaler la gaufre 
ernpoisann.ee - MOR QUATRE, 
classique morpion ou il faul ali- 
gner quatre pions de meme cou- 
leur verticalement. horizontale- 
ment ou en diagonale! 
Ensuite, quatre autres jeux de 
hasard ou de reflexe : PUCE oil il 
vous faut maitriser quatre puces 
malicieuses selon 3 niveaux de 
difficult* - VOYELLES : retrou- 
ver un message secret qui est 
constitue par une phrase dont 
les voyelles sont cachees par 
I'ordinateur - L'OISEAU RARE 
est un jeu de hasard ou vous de- 
vez decouvrir le plus grand des 
dix nombres malicieusement 
dissimules par votre T07 - NIM. 
archi-classique, pour ne pas dire 
simpliste, il faut retirer le dernier 
des cailloux repartis dans un 
nombre aleatoire de tas. Un 
exercice de PE1NTURE vous 



permet de reallser toutes sortei 
de figures selon voire inspira 
tion, sans toulefois rivaliser 
avec "PICTOR", logiciel compa- 
rable _ Enfin. un programme 
d'IMPOTS qui vous aidera a cal- 
culer le montant de votre impot 
sur le revenu en tenant compte 
de votre silualion personnelle. 
Les programmes utilisent tres 
souvent le crayon optique et ne 
sont pas proteges ce qui vous 
permettra, moyennant I'achat 
de lextension memoire, de les 
ameliorer ou de "repiquer" des 
morceaux de programmes pour 
en faire des sous-programmes 
aisement utilisables. ■ 





INFOGRAMES 



une collecNon 

de 

logiciels passionnanrs! 



20 bis. me Godefray B900B Lyon 
Tel 7/ 094.39.14 



LE PREMIER TOME EST DEJA UN BEST-SELLER, VOICI DEUX NOUVEAUX 
RECUEILS DE LOGICIELS, ENCORE PLUS COMPLETS, ENCORE PLUS 
BEAUX! 



JEUX et PROGRAMMES 

pour I'ordinateur familial 

TEXAS INSTRUMENTS 

Tome 2 




INITIATION AU 

LANGAGE ASSEMBLEUR du 

TEXAS INSTRUMENTS 




Programmez vous-meme en Ti-Basic grace a des instructions simples, sans 
aucun peripherique ni module complementaires. Des jeux originaux et passion- 
nan ts avec couleurs.graphismeset sons : Jeux de mouve merit (Bowling. Bat aiile 
de t'espace, Labyrinthe, etc.)- Jeux de reflexion : Dames, Pendu. Awari, Tour de 
HanoT.Architecte, etc.). Jeux desociete (421, Goldie.Cochon, Mastermyster.Chif - 
fres et mots, etc.). • 

Des programmes performants: Calcul (Factures, Paye, Byorythmes, etc.). Assis- 
tance (Tierce. Impdts, Suivi de compte en Banque, etc.). 

Et aussi des Astuces pour augmenter la puissance du langage Ti-Basic : AND et 
OR, Arrondi, Alignement, HCHAR multiples, etc. 
100 pages. Format 21 x 29,7. 155,00 francs francais. Disponible. 



Letome2esttoujoursen basic simple, sans peripherique ni module complemen- 
taire. Les jeux y sont encore plus nombreux : Backgammon, Sous-marin, Trappe, 
Roulette, Casse-tete, Puzzle, Echecs, Tachitoscope, Kim, Paires, etc... De la musi- 
que a inclure dans vos programmes : Big Ben, la Marseillaise, God save the queen, 
les Rois mages, etc. Et aussi, des programmes educatifs : Arithmetique, Calcul de 
puissance, Regions de France, entramement a la logique informatique, etc. 
1 00 pages. Format 21 x 29,7. 1 55,00 francs francais. Disponible. 



en vente dans les fhac et chez les 
revendeurs TEXAS INSTRUMENTS. 



Le tome 3 est en basic etendu, il necessite done le module "Extended Basic" qui 
augmente considerablement les possibilites de votre ordinateur. A des program- 
mes utilitaires comme un traitement de texte ou une gestion complete de plu- 
sieurs comptes en banque s'ajoutent des jeux rapides (bataille navale, course de 
voitures, etc.), des jeux de societe (Theme astral, Drapeaux, Poker, Harmonium, 
Calculettescientifique.Ardoisemagique etc.), des utilitaires pour creer des lutins, 
fusionner des caracteres, dessiner point par point, faire defiler des textes dans 
tous les sens ou encore fabriquer une mire Texas a votre nom ! 
100 pages. Format 21 x 29,7. 155,00 francs francais. Disponible. 



Vous connaissez le Ti-Basic, vous possedez un Ti 99/4A et un module "Mini- 
memoire"? Vous pouvez des a present disposer de toute la puissance de votre 
ordinateur : Acces a toutes les possibilites graphiques, y compris la haute resolu- 
tion. Acces direct a la memoire centrale. Grande Vitesse dexecution (deux minu- 
tes au lieu de deux heures trente pour un meme programme). 
Ce manuel, comprenant un grand nombre de programmes commentes vous 
apprend progressivement, sans connaissanccs techniques prealables, a maitri- 
ser un langage tres puissant reserve jusqu'a present aux seuls specialistes. 
Par Denise AMROUCHE et Roger DID1. 214 pages. Format 21 x 28. 195,00 francs 
francais. Disponible en francais et en anglais. 



JEUX et PROGRAMMES 

pour 

I'ordinateur familial 

TEXAS INSTRUMENT 




progrnmmos an Ti basic potir"Tt 99^A" 



JEUX et PROGRAMMES 


pour I'ordinateur familial 


TEXAS INSTRUMENTS 


Tome 3 


if 


1 Lm 


Itp 




I ' r . D . ... 


I'^d ' IjWWI B^l 


I ¥^ ^i^ ~ — SS M 





0EMANDE2 LE CATALOGUE DE NOS PROGRAMMES DISPONIBLES SUR CASSETTES ET DISQUETTES. SHIFT EDITIONS, 27 ruo du Gal Foy, 75008 PARIS 
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TOME 1 a 155 F 
TOME 2 a 155 F 



TOME 3 □ 155 F 

ASSEMBLEUR D 195 F 



CONTRE REMBOURSEMENT FRANCE 
CONTRE REMBOURSEMENT ETRANGER 
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+ 30 F n 
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